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1.0 INTRODUCTION 

This document serves as the final report describing the activity on NASA Grant NAG 9-388, 
which is entitled “Continuation of Research in Software for Space Operations Support”. The pur- 
pose of this grant was to continue the research direction defined for NASA Grant NAG 9-269, dur- 
ing which SwRI developed a prototype workstation executive called the Hardware Independent 
Software Development Environment (HISDE). The research direction of this grant was to research 
and evaluate software technologies relevant to workstation executives and to use HISDE as a test 
bed for prototyping efforts. 

This document will describe the background for the research grant and describe all research 
performed. 

2.0 RESEARCH BACKGROUND 

During the past few years and continuing in the future, many centralized computing installa- 
tions are migrating to environments characterized by distributed processing. This migration is driv- 
en primarily by the low cost and high performance delivered by state-of-the-art graphic worksta- 
tions. Such an environment normally consists of a large number of workstations which are in turn 
connected via one or more high-speed networks. 

Although a workstation-based distributed processing environment offers many advantages, 
it also introduces a number of new concerns. One problem is that engineering-class workstations 
most commonly use the UNIX operating system, which is difficult for computer novices to use ef- 
fectively. Also, connecting a large number of workstations and expecting them to work as an inte- 
grated system is not easily achieved. The introduction of so many separate processors makes con- 
figuration management and security a real concern. In fact, the very flexibility which is inherent in 
workstations often becomes a problem. This is especially true for real-time critical command and 
control systems in which a failure or security break could have disastrous results. 

In order to solve these problems, allow the environment to function as an integrated system, 
and present a functional development environment to application programmers, it is necessary to 
develop an additional layer of software. This “executive” software integrates the system, provides 
real-time capabilities, and provides the tools necessary to support the application requirements. 
Such an executive will be required for use in evolving systems such as the ground-based control 
centers planned at Johnson Space Center. These command and control environments will use a dis- 
tributed processing architecture to provide real-time processing of telemetry and command data. 

2.1 NASA Grant NAG 9-269 Background 

For NASA Grant NAG 9-269, which was entitled “Research in Software for Space Opera- 
tions Support”, SwRI developed the HISDE prototype to serve as proof-of-concept for a hardware- 
independent workstation executive. The HISDE prototype introduced a number of advanced soft- 
ware technologies and concepts including: 

• Exclusive use of software standards: 

SVID UNIX Operating System 

X Windows 

GKS and PHIGS 

ISO OSI Communications 
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Through the use of standards, HISDE was easily ported across multiple vendor work- 
stations. 

9 Open use of UNIX - through a more flexible design and configuration management 
scheme, HISDE provided access to the UNIX file system via the familiar UNIX com- 
mand line interface. 

* CM Manager Workstation - this concept involves a workstation to which all user appli- 

cations are loaded with certified libraries prior to being mission certified and uploaded 
to a configuration management host. t 

The purpose of this continuation grant was to research software technologies relevant to 
workstation executives. The HISDE prototype was used as a test bed for prototyping and practical 
evaluation of identified technologies. 

3.0 RESEARCH PERFORMED 

The research performed on this grant was directed towards the introduction of new X Win- 
dows software concepts and technology into workstation executives and related applications. The 
four research efforts performed include: 

Research into the usability and efficiency of Motif - this effort consisted of converting 
the existing Athena widget-based HISDE user interface to Motif. This research demon- 
strated the usability of Motif and provided insight into the level of effort required to 
translate an application from one widget set to another. 

* Prototype a real-time data display widget - this effort consisted of researching methods 
for and prototyping the selected method of displaying textual values in an efficient 
manner. The prototype widget can be used by NASA in special purpose user applica- 
tions and in system applications such as the Display Manager, which must display large 
amounts of text in an efficient manner. 

X Windows performance evaluation - this effort consisted of a series of performance 
measurements which demonstrated the ability of low-level X Windows to display tex- 
tual information. The performance of X Windows was compared to the performance of 
similar operations performed in Graphic Kernel System (GKS) calls. 

* Convert the Display Manager to X Windows/Motif - the Display Manager is the appli- 
cation used by NASA for data display during operational mode. This application pri- 
marily uses GKS for data display and user interface, which is somewhat inefficient and 
difficult for the basis of a user interface. SwRI developed a prototype of the Display 
Manager which only used X Windows and Motif for data display and user interface. 

For more information on each of these efforts, refer to the following four sections of the doc- 
ument. Each section provides a description of the research effort and includes all relevant code and/ 
or performance data. 
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1.0 INTRODUCTION 

The Open Software Foundation (OSF) distributes an X Windows-based graphic user inter- 
face system called Motif. Motif has become a standard and is the default X Windows-based user 
interface for a large number of workstations available at this time. Motif includes a highly func- 
tional widget set, a window manager, a user interface language, and a style guide. 

As an exercise to demonstrate Motif, both in terms of appearance and usability from a pro- 
gramming standpoint, SwRI converted the user interface for the Hardware Independent Software 
Development Environment (HISDE) to Motif. This involved replacing the existing interfaces to 
the MIT Athena widget set with the corresponding interfaces for Motif. 

2.0 RESEARCH GOALS 

• Demonstrate the “look and feel” of Motif within the context of an application which is 
f amiliar to NASA (HISDE). 

• Use Motif and formulate opinions on its usability, performance, and ease of transition 
from other widget sets. 

3.0 RESEARCH DETAILS 

When HISDE was developed, the introduction of improved widget sets was anticipated. The 
majority of the access to widget-specific functions was through a set of library functions which 
both made it easier to use the widgets and hid the details of the widgets from the actual application 
code. Therefore, the first step in converting from Athena to Motif widgets was to update these li- 
brary functions. This was a relatively simple process which included converting user interface 
functions to Motif widgets and supporting functions. 

The next step was to convert the actual application level code. Due to the amount of time 
available for this effort, only a subset of the HISDE user interface clients were actually converted. 
The clients which were converted include the following: 

• h_advisory - advisory/message display client 

• h.bulletin - host advisory display client. 

• h_cm_menu - configuration management user interface client. 

• h_cmd - command interface client 

• h_help - help client 

• h_info - system information client 

• h_info_a - system information client 

• h_login - login client 

• hjogout - logout client 

• h_menu_edit - menu editor client 

• h_msg_look - advisory/message browse client 

• h_pbi_edit - PBI editor client 

• h talk - remote communications client. 
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Due to the time available for this conversion effort, the following clients were not completely 
converted to Motif. 

• h_menu - this client implements user-defined menus, which were not available in the 
Athena widget set. Motif includes a rich collection of menus, therefore rendering this 
client obsolete. 

• h_cm_status - this client is the user interface for the CM Manager Workstation. Con- 
version of this client was begun, but not completed. 

• h_pbi - this client displays push buttons used to emulate Push Button Indicators (PBI’s). 
Conversion of this client was begun, but not completed. 

• h_status - this client provides system status displays. Conversion of this client was be- 
gun, but not completed. This client depends on a widget (the load widget) from the Ath- 
ena widget set. Conversion of this client to Motif requires integration of widgets from 
two different sets. 

Because the source code for these clients was not in a finished state, the code is not included 
in this document. The actual interim code is however present on the delivered set of tapes. 

Note that Motif includes a User Interface Language (UIL) which purportedly simplifies de- 
velopment of user interfaces. After review of this language it was determined that direct use of the 
Motif widget set was more efficient. 

4.0 RESEARCH CONCLUSIONS 

Several important conclusions were drawn from this research effort These conclusions in- 
clude the following: 

• Motif provides a highly functional and robust set of widgets. The Motif widgets are su- 
perior to both Athena and Hewlett Packard widgets in terms of functio nali ty, usability, 
documentation, and reliability. 

• Transition from one set of widgets to another is a relatively simple process. This is es- 
pecially so if the actual interfaces to the widgets are isolated from application code. If 
this is not done, transition will be possible, but will require a very large number of te- 
dious changes. 

• The Motif widget set, due to its large size, greatly increases the size of an executable 
program. In an operating system which does not support shared libraries, a copy of the 
widget set will be present in every application. This will quickly use up memory and 
swap space. 

• The Motif widget set provides acceptable performance. In applications demanding high 
performance display of graphics, Motif could be used to develop the user interface and 
to provide windows in which lower level functions would be used for high perfor man ce 
graphics display. 

• Motif provides the concept of “gadgets*’, which are an alternative for many simple wid- 
gets such as labels, push buttons, and toggle buttons. Unlike a widget, a gadget does not 
require display of an individual window and therefore is faster and more efficient (at a 
cost of less functionality and configurability). 
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5.0 ATTACHMENTS 

The following pages contain the actual code for the translated HISDE user interface. The 
code and related files which are present include: 

• User interface library Makefile and code. 

• Makefiles and code for each of the converted clients: 


h_advisory. 

h^bulletin. 

h_cm_menu. 

h_cmd, 

hjielp. 

hjnfo. 

h_info_a. 

hjogin. 

hjogout 

h_menu_ediL 

h_msg_look. 

h^pbLcdit 

hjalk. 
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ATTACHMENT 1 - User 
Interface Library 
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Makefile 


######################################**^# # **^*^##*#*# #################################### 

# Makefile for the HISDE user interface library. * 

###############################***********************^*********************************** 


# 

# Define the target which this file is to create. 

# 


TARGET - libui.a 


# 

# Initialize include and library search paths to include current directory and the 

# HISDE directories. 

# 

INCDIR - /hisde/src/include 

LIBDIR - /usr/lib 

INCDIRS - -I. -1$ (INCDIR) 

# Define the libraries to search. This includes the HISDE library and all X 

# windows libraries. 

# 

LIBRARIES - -lhisde -lXaw -lXt -1X11 

# 

# Define the compiler and linker flags. 

# 

CFLAGS - -0 $ (INCDIRS) 

LD FLAGS - -O 

# 

# Define any programs and options to use. 

# 

AR * ar rv 

RM - rm -f 

RANLIB * ranlib 

# 

# Define all objects which make up this target. 

# 

OBJS -\ 

create^ label . o\ 
create_cmd. o\ 
create^ cas . o\ 
create_f orm. o\ 
create_text .o\ 
create_tog.o\ 
display_msg.o\ 
ld_text — wid . o \ 
upd_t ext_wid . o \ 
ins_text_wid . o\ 
clr_text_wid. o\ 
get_text_wid. o\ 
get_txts_wid. o\ 
get_txtp_wid. o\ 
init_ list .o\ 
bad_syntax.o 


* 
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Makefile 


# Define all header files required. 

* 

HDRS =\ 

$ (INCDIR) /hisde.h 

# 

# Make the target . 

* 


all: $ (TARGET) 

$( TARGET): $(OBJS) 

$ (AR) $ (LIBDIR) /$ (TARGET) S(OBJS) 
$ (RANLIB) $ (LIBDIR) /$ (TARGET) 

$ (OBJS) : $ (HDRS) 
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bad_syntax.c 


T!-^*************************************************************************'”””” 

* MODULE NAME AND FUNCTION ( bad_syntax ) # 

* This function is called to output a warning to the system message client to inform the * 

* user that ie has specified an invalid command syntax. This function formats the mes- * 

* sage, outputs it, and calls (exit) to terminate the client. 

* * 

* * 

★ SPECIFICATION DOCUMENTS: * 

* * 

* /hisde/req/ requirements * 

* /hisde/design/des ign * 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 
*******.***.********************************************************************** 


******* y 


♦include <hisde.h> 


int bad_syntax < syntax 
char * syntax; 


/* String containing the correct syntax of the 

* calling client. It will be output to the system 

* message client. 

*/ 


( 

/* 

* Define the string which will be formatted with the message. 
*/ 


static char message [MAX_MESSAGE_LENGTH] - "Invalid Syntax - Try: 


/ * Concatenate the correct syntax string to the warning string and output to the 
* system message client. Upon return, exit from the client. 

*/ 

h_message ( MS G_WARN I NG , strcat ( message, syntax ) ) ; 

exit ( 0 ) ; 


OR-; 
Of ? 


• v Jv'Cfj 

>'>*? Qt 
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y 


\ 



*************.* 


/************************* r ** r ** r ****** r ***** t n r ^ ## ^ A 

* MODULE NAME AND FUNCTION ( clear_text_widget ) 

* This function is used to clear all text within 

* 

* 




a text widget . 


* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/ requirements 

* /hiade /design /design 


* 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 


★ 

* 

★ 

* 

★ * 


Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 






★ * 


********** 


♦include <X11/ Intrinsic . h> 
♦include <Xm/Text . h> 


void c lea r_text_ widget ( widget ) 

Pointer to the text widget which will be cleared 
of all text. 

/ 
l 

/* 

* Clear all text from the widget. 

*/ 


widget widget; 


/* 

* 

★ 


} 


XmTextSetString ( widget 


*« »f 


) 




create_cas.c 


/**************************** 
* MODULE NAME AND FUNCTION ( 


***********★*★★******★******“* 

create cascade ) 


* This function is called to create a MOTIF cascade widget. 



*• 

★ 

* 

* 


★ 


* SPECIFICATION DOCUMENTS : 

* 

* /hisde/req/requirements 

* /hisde/design/design 


* ORIGINAL AUTHOR AND IDENTIFICATION: 


★ 


* 

* 

★ 

* 

it 


Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 






* 

* 

* 

* 

/ 


♦include <X11/ Intrinsic . h> 
♦include <Xm/CascadeB ,h> 


Widget create_cascade { instance/ parent/ menu, label ) 

/* This function returns the return value of the 

* XtCreateManagedWidget function call. This will 

* be a pointer to a widget. 

*/ 

/* The instance name of the widget. It uniquely 
‘ defines the widget. 

*/ 

/* The string which this command widget will display. 

* / 

/* The parent widget to which the command widget will 

* be attached. 

*/ 

/★ Menu which will be activated when the cascade is 

* selected. 

*/ 

* Define the array which will contain all arguments required to create the command 
‘ widget . 

*/ 

widget widget; 


Arg argst 1 ]; 


register int count - 0; 


/* 

* attach it to the parent, and initialize all arguments. 
*/ 


/‘ Pointer to the created widget. 

*/ 

/* Argument list for cascade widget. 

*/ 

/‘ Counts the number of arguments initialized. 
*/ 


char ‘instance, 
‘label; 
Widget parent, 
menu ; 


XtSetArg ( args [ count ] , XmNsubMenuId, menu ) ; count++; 




/* 

* Create and manage the cascade widget. Return the widget pointer to calling function 

*/ 


XtManageChild ( widget - XmCreateCascadeButton ( parent, label, args, count ) ) ; 
return ( widget ) ; 
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/a********************************** 

* MODULE NAME AND FUNCTION ( create_command ) 




* This function is called to create a command widget. 


kkkkkkkkkkkkkkkkH** 



k 

* 

* 

*■ 


★ 

★ 

★ 

* 

* 

k 

k 

k 


SPECIFICATION DOCUMENTS: 

/hisde/req/ requirements 
/hisde/design/design 

ORIGINAL AUTHOR AND IDENTIFICATION: 


* 

★ 

* 

*■ 

* 

* 

* 

* 


Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 




♦include <X11/ Intrinsic . h> 
♦include <Xm/PushB.h> 


Widget create_jcommand ( instance, parent, label, callback ) 

/* This function returns the return value of the 

* xtCreateManagedWidget function call. This will 

* be a pointer to a widget. 

*/ 


char ^instance, 


♦label; 


Widget parent; 


/* The instance name of the widget. It uniquely 
* defines the widget. 

*/ 

/* The string which this command widget will display. 
*/ 


/* The parent widget to which the command widget will 
* be attached. 

*/ 


XtCallbackList callback; 


{ 

Widget 


widget; 


/* Specifies an array containing the list of func- 

* tions called upon command callback. It may be 

* NULL if no functions are present. 

*/ 

/* Pointer to the created widget. 

*/ 


XmString string; 


I* Compound string to which the label is converted. 
*/ 


Arg 


args [ 2 ] ; 


/* Argument list used to initialize widget resources. 
*/ 


register int count *0; / * Incremented each time a argument is initialized 

♦ in the (args) array. When the widget is created, 

* this value which indicate the number of arguments. 
*/ 


♦ Convert the label to a compound string and save in the argument list. 
*/ 
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string - XmStringLtoRCreate ( label, XmSTRING_DEFAULT_CHARSET ) ; 
XtSetArg ( args ( count ], XmNlabelType, XmSTRING ); count++; 
XtSetArg ( args [ count ], XmNlabelString, string ); count++; 


/* 

* Create and manage the widget. Free the memory allocated for the compound string. 


XtManageChild ( widget - XmCreatePushButton ( parent, instance, args, count ) ) ; 
XmStringFree ( string ) ; 


/* 

* If the command has a callback, add it to the widget. 

*/ 

if ( callback ) 

XtAddCallbacks ( widget, XmNactivateCallback, callback ) ; 
return ( widget ) ; 

> 




create_form.c 


^***********"************** 

* MODULE NAME AND FUNCTION ( create_form ) 


iiiliitf 

»...*«.************‘********“**************‘*********“* t ****’* 


This function is called to create a MOTIF form widget. 


* SPECIFICATION DOCUMENTS: 

★ 

* /hisde/req/ requirements 

* /hisde /design /design 


* ORIGINAL AUTHOR AND IDENTIFICATION: * 

* . * 

* Mark D. Collier - Software Engineering Section ^ 

★ Data System Science and Technology Department ^ 

* Automation and Data Systems Division * 

★ Southwest Research Institute 
************************* **** *****’ ****** ***** *****************************'**************' 


♦include <X11/Intrinsic ,h> 
♦include <Xm/Form.h> 


Widget create_form ( instance, parent ) 

/ * This function returns the return value of the 

* xtCreateManagedWidget function call. This will 

* be a pointer to a widget. 

*/ 


char ^instance; 


Widget parent; 


{ 

Widget 


widget; 


/ * The instance name of the widget. It uniquely 

* defines the widget. 

*/ 

/* The parent widget to which the form widget will 

* be attached. 

*/ 

/* Pointer to the created widget. 

*/ 


* Create and manage the form widget. Return the widget pointer to the calling function 
*/ 

XtManageChi Id ( widget - XmCreateForm ( parent, instance, NULL, 0 ) ) ; 


} 


return < widget ) ; 




create_label.c 


/a***************#*******.********************,**,******^^^^^^^^ 

* MODULE NAME AND FUNCTION ( create_label ) 


***** 



****** 1 **** 


* This function is called to create a MOTIF label widget. 

★ 


★ 

* SPECIFICATION DOCUMENTS: 

★ 

* /hisde/req/ requirements 

* /hisde /design /design 


* 

* 

k 

k 


k 


* 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 


Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 






******* 


* * 


* 

* 

* 

* 

★ 

★ 

* 

* 

****** j 


♦include <X11/ Intrinsic . h> 
♦include <Xm/Label .h> 


Widget create_label ( instance, parent, label ) 


char ‘instance, 

‘label; 

Widget parent; 

{ 

Arg args [ 2 ] ; 

Widget widget; 

XmString string; 

register int count - 0; 


/‘ This function returns the return value of the 

* XtCreateManagedWidget function call. This will 

* be a pointer to a widget. 

*/ 

/* The instance name of the widget. It uniquely 

* defines the widget. 

‘/ 

/* The string which this label widget will display. 

* / 

/* The parent widget to which the label widget will 

* be attached. 

*/ 

/* Argument list used to initialize the widget 

* resources. 

*/ 

/* Pointer to the created widget. 

*/ 

/* Points to the compound string created for the 

* label. 

*/ 

/* Counter set to the number of arguments initialized 
*/ ' 


* Initialize a compound string and set in the resource list. 

* lists . 

*/ 

string - XmStringLtoRCreate ( label, XmS T R I NG_D E F AULT_CH ARS ET ) ; 
XtSetArg ( args [ count ] , XmNlabelType, XmSTRING ) ; count++; 
XtSetArg ( args [ count ] , XmNlabelString, string ) ; count ++; 


create_label.c 




Create and manage the widget. Free the space allocated for the compound string 
Return the widget pointer to the calling function. 


XtManageChild ( widget - XmCreateLabel { parent, instance, args, count ) ); 

XmStringFree ( string ) ; 


return { widget ) ; 



create_text.c 





r ★ * * * * 


* MODULE NAME AND FUNCTION { create_text ) 

* 

* This function is called to create a MOTIF 


* 

* 

* 

* 

★ 

* 

* 


SPECIFICATION DOCUMENTS: 

/hisde/req/ requirements 
/hisde /design /design 


text widget . 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 


♦include <X11/Intrinsic .h> 
♦include <Xm/Text . h> 


Widget create_text ( instance, parent, text, scrolled, mode, edit_flag ) 


char *instance. 


*text ; 


/* function returns the return value of the 

* XtCreateManagedWidget function call. This will 

* be a pointer to a widget. 

*/ 

/* The instance name of the widget. It uniquely 

* defines the widget . 

*/ 

/* The ascii text which will be displayed in the 

* text widget . 

*/ 


Widget parent; 
int mode , 

scrolled, 
edit_f lag; 

{ 

Widget widget; 


/* The parent widget to which the text widget will 

* be attached. 

*/ 

/* Indicates whether the widget will be single or 

* multiple lines: 

* 

* XmS INGLE_LINE_ED IT 

* XmMULTI_LINE_EDIT 
*/ 

/* Indicates whether or not the data can be scrolled 
*/ 

/ * Indicates whether or not the widget can be edited 
*/ 

/* Pointer to the created widget. 

*/ 


Ar 9 args [ 3 ]; /* Argument list used to initialize the widget 

* resources. 

*/ 

register int count ”0; /* Used to count the number of arguments initialized. 

*/ 



create_textx 


* Initialize the widget text (not a compound string), the line size mode, and the 

* edit mode . 


XtSetArg { args [ count ] , XmNvalue, text ) 
XtSetArg ( args [ count ], XmNeditMode, mode ) 
XtSetArg ( args [ count ], XmNeditable, edit_flag ) 


count++; 
count ++; 
count ++; 


/* 

* Based on the (scrolled) flag, create the appropriate type of widget. Next manage 

* the widget. Note that the instance name of a scrolled text widget is "instanceSW" . 

*/ 


if ( scrolled ) 

widget - XmCreateScrolledText ( parent, instance, args, count ) ; 

else 

widget * XmCreateText ( parent, instance, args, count ) , 

XtManageChild ( widget ) ; 


return ( widget ) ; 



• ••• t.-.v-.-A 

\ \i r * 

create_tog.c 

s- < 




* MODULE NAME AND FUNCTION ( create_toggle ) 

* 


* This function is called to create a toggle button widget. 


★ 


* SPECIFICATION DOCUMENTS: 

* 

* /hisde/ req/ requirements 

* /hisde/ design /design 

* 


* 


* ORIGINAL AUTHOR AND IDENTIFICATION: 


Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 








* 

★ 

* 


*/ 


♦include <X11/ Intrinsic . h> 
♦include <Xm/ToggleB . h> 


Widget create_toggle { instance, parent, label ) 


char ^instance, 

♦label; 

Widget parent; 

{ 

Arg args 12 ]; 

Widget widget; 

XmString string; 

register int count - 0; 


/* This function returns the return value of the 

♦ XtCreateManagedWidget function call. This will 

♦ be a pointer to a widget. 

*/ 

/* The instance name of the widget. It uniquely 

♦ defines the widget. 

*/ 

/* The string which this label widget will display. 

♦ / 

/* The parent widget to which the label widget will 

♦ be attached. 

*/ 

/* Argument list used to initialize the widget 

♦ resources. 

*/ 

/* Pointer to the created widget. 

*/ 

/* Points to the compound string created for the 

♦ label. 

*/ 


/* Counter set to the number of arguments 
*/ 


initialized . 


/* 

Convert the label to a compound string and initialize in the argument list. 

* / 


string - XmStringLtoRCreate ( label, XmSTRING_DEFAULT_CHARSET ); 
XtSetArg ( args [ count ], XmNlabelType, XmSTRING ); count++; 

Xt Set Arg ( args[ count ], XmNlabelString, string ); count++; 
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★ Creiit© and manage the widest. Free the space allocated for the compound 

* Return the widget pointer to the calling function. 

*/ 

XtManageChild ( widget - XmCreateToggleButton ( parent, instance, args, 
XmStringFree ( string ) ; 


string. 


count ) ) 


return { widget ) ; 
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* MODULE NAME AND FUNCTION ( display_me33age ) 

* 


* This function displays different types of popups for different message types. It dis- 

* plays a modal popup which when acknowledged, is automatically removed. This function 

* also calls (h_message) . Note that all user interface clients should use this function 

* to present hisde messages. 


* 

* SPECIFICATION DOCUMENTS: 

★ 

* /hisde/ req/ requirements 

* /hisde/design/design 

* 


* 


* ORIGINAL AUTHOR AND IDENTIFICATION: 


Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 


************ 




WWW 




♦include <X11/Intrinsic . h> 
♦include <Xll/MwmUtil.h> 
♦include <Xm/MessageB .h> 
♦include <hisde.h> 


extern Widget top/ 


int display_message { type, message ) 

/* Function returns the return value of h message 
* call. 

*/ 


int type; 


char ^message; 


Arg 


args [ 1 ] ; 


static Widget widget; 


XmString string; 


register int count - 0; 


/* Type of the message. Used to determine the type 

* of popup displayed: 

★ 

* MSG — APPLICATION 1 

* MSG_ERROR 2 

* MSG_HOST 3 

* MS CONFORMATION 4 

* MSG_WARNING 5 

*/ 

/* Message text to actually display. 

*/ 

/* Argument list used to initialize the widget 

* resources. 

*/ 


/* Pointer to the created widget. 

*/ 

/* Points to the compound string created for the 
* label. 

*/ 

/ * Counts the number of arguments. 

*/ 
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* If a popup was already 

* will still exist. 


*/ 


defined, 


destroy it 



(it will have been unmanaged, but 


if ( widget ) 

XtDestroyWidget ( widget ) ; 


/ * Initialize the string to be displayed in the popup. 
*/ 


string - XmStringLtoRCreate ( message, XmSTRING_DEFAULT_CHARSET >; 
XtSetArg ( args [ count 1 , XmNmes sageS t ring, string ); count++, 


Based on the message type, create the appropriate popup type. 

*/ 


switch ( type ) { 


case 

case 

case 


MSG_AP PLICATION : 

MSG_HOST : 

MS G — INFORMATION : 

widget - XmCreate Info rmationDia log 


case 


break; 

MSG_ERROR: 

widget - XmCreateErrorDialog 


break; 

i MSG_WARNING: 

widget - XmCreateWarningDialog 
break; 


default : 

break; 


} 


( top, args, count ) ; 
( top, args, count ) ; 
( top, args, count ) ; 


/ * 

* Set the modal flag on the popup shell widget. 
*/ 


X°S«»r 3 °( acga [ count 1, XMMnmlnputMod., M«M_imUT_»PPLICAT ION_MOD»L ), count** 
XtSetValues ( XtParent ( widget ), args, count ); 


* Manage the widget and Free the string used for the compound string. 
*/ 


XtManageChild ( widget ) ; 
XmStringFree ( string ) ; 


* Unmanage the CANCEL and HELP push buttons as they have no function 

*/ 


XtUnmanageChild ( XmMessageBoxGetChild ( widget, 
XtUnmanageChild ( XmMessageBoxGetChild ( widget. 


XmDIALOG_CANCEL_BUTTON ) 
XmDIALOG HELP_BUTTON ) 


) ? 
) ; 


/* 

* Call h_message to 
•/ 


send the message to the advisory client and return 


) 


return ( h_message ( type, message ) ) ; 
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/***************************1t***1i1rin,l,i,i,i,i r i,i,i,i,i, i , i , t ' i , i , i ' i ' i '*^^^^^^^^^^^^ 

* MODULE NAME AND FUNCTION ( get _text_widget ) *•**»*.*.**.*....,,. 

* This function is used to retrieve all text within a text widget. " 

* * 

* SPECIFICATION DOCUMENTS: * 

* * 

* /hisde/ req/ requirements * 

* /hisde/design/design * 

it * 

it * 

* ORIGINAL AUTHOR AND IDENTIFICATION: * 

* * 

* Mark D. Collier - Software Engineering Section * 

* Data System Science and Technology Department * 

* Automation and Data Systems Division * 

Southwest Research Institute 

# include <X11/Intrinsic . h> 

♦include <Xm/Text.h> 


char *get_text_widget ( widget ) 
Widget widget ; 


/* Poxnter to the text widget from which the data 
* will be retrieved. 


R#trieve a11 text from the widget. Note that this is not a compound string. 


return ( XmTextGetString ( widget ) ) ; 
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/**********★★★★★**★* ***** ******* 

* MODULE NAME AND FUNCTION ( get_text_insertion_widget ) 

* 

• This function is used to return the position of the cursor in a text widget. 


* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/ requirements 

* /hisde/design/design 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

★ Automation and Data Systems Division 

★ Southwest Research Institute 






♦include <X11/ Intrinsic . h> 
♦include <Xm/Text.h> 


int get_text_insertion_widget 
Widget widget; 


( widget ) 

/* Pointer to the text widget from which the cursor 
* position is desired. 

*/ 


{ 

/* 

* Get and return the text cursor position. 
*/ 


return { XmTextGetlnsertionPosition ( widget ) ); 

} 


z**************************************************************************************^ 

* MODULE NAME AND FUNCTION ( get_text_sel_widget ) 

* 

* This function is used to retrieve the currently highlighted text within a text widget. 

★ 

* SPECIFICATION DOCUMENTS: 

* 

* /hiade/ req/ requirements 

* /hisde/design/design 

* 

★ 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 
***************************************************************************************** 


♦include <X11/ Intrinsic . h> 
♦include <Xm/Text . h> 


char *get_text_sel_widget ( widget ) 

Widget widget; /* Pointer to the text widget from which the high- 

* lighted text is desired. 

*/ 

{ 

/* 

* Get and return a pointer to the current text selection. 

*/ 


} 


return ( XmTextGetSelection { widget ) ) ; 



/«,*********************************************’ l, ***** <r ************************************ 

* MODULE NAME AND FUNCTION ( init_li3t ) * 

★ 

* This function initializes the entries in an XinList widget. 

★ 

★ 

* 

★ 

* SPECIFICATION DOCUMENTS: * 

★ 

* /hisde/req/requirements 

* /hisde/design/design 

* 

*• 

* 

* ORIGINAL AUTHOR AND IDENTIFICATION: * 

* 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department * 

* Automation and Data Systems Division * 

Southwest Research Institute 




* + * * * * * i 


♦include <X11/ Intrinsic . h> 
♦include <Xll/StringDef s .h> 
♦include <X11/Cardinals . h> 
♦include <Xm/List.h> 
♦include <hisde.h> 


void init_list ( widget, data_list ) 

Widget widget; / * Set to the list widget which will be updated. 

*/ 

char *data list; /* String containing the logical strings (those 

~ * terminated by newlines) to be placed in the 

* list. 

*/ 

[ 

char tempt S I Z E_HO S TNAME + 1 ]; 

/* String used to contain the current entry as parsed 

* from the (data_list) . This value will be converted 

* to an XmString and saved in (list) . A hostname is 

* the largest entry placed in a list. 

*/ 

/* 

* Scan the list and create XmStrings for placement in the selection box. Note that 

* (data list) includes a number of logical strings terminated by newlines. The 

* physical strings is terminated by a newline. Note that the list is terminated by 

* a NULL entry. 

*/ 


while ( *data_list ) ( 

sscanf ( data_list, "%s", temp ) ; 

XmListAddltem ( widget, XmStringCreateLtoR ( temp, XmSTRING_DEFAULT_CHARSET ) , 
0 ) ; 

data_list +■ strlen ( temp ) +1; 

) 

) 
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* * * * * 


* 

* 

★ 

* 

★ 

* 

* 

* 

★ 

★ 


MODULE NAME AND FUNCTION ( insert_text_widget ) 

This function inserts a new string into a text widget at the 

SPECIFICATION DOCUMENTS: 

/hisde/ req/ requirement s 
/hisde /design /design 


current 


cursor position. 



■k 

* 

* 

* 

* 

*■ 

k 


* * 

* ORIGINAL AUTHOR AND IDENTIFICATION: * 

* * 

* Mark D. Collier - Software Engineering Section * 

* Data System Science and Technology Department * 

* Automation and Data Systems Division * 

* Southwest Research Institute * 




♦include <X11/Intrinsic .h> 
♦include <Xm/Text.h> 


void insert_text_widget { widget, new_text ) 


Widget widget; 
char *new text; 


register int 


pos; 


/* Pointer to the text widget which will be updated 

* with the new text. 

*/ 

/* The new string which is to be initialized in the 

* text widget. 

*/ 

/* Set to the position of the cursor in the text 

* widget. 

*/ 


/* 

* Get the current position of the text cursor and use to add the new text. 
*/ 


pos - XmTextGet InsertionPosition ( widget ) ; 
XmTextReplace { widget, pos, pos, new_text ); 






I ****************** ********* 

* MODULE NAME AND FUNCTION { 

* 

* This function initializes 

* 


************************ 
load_text_widget ) 

a text widget from a file. 


* 

* SPECIFICATION DOCUMENTS : 

* 

* /hisde/req/ requirements 

* /hisde/design/design 

* 


* 

* 

* 

★ 

★ 

* 

★ 

* 

* 

* 

* 


★ ORIGINAL AUTHOR AND IDENTIFICATION: * 


Mark D. Collier 


Software Engineering Section ^ 

Data System Science and Technology Department ^ 

* Automation and Data Systems Division 

* Southwest Research Institute 

**..*.—— ....*<*******— —*—************************** / 


♦include <stdio.h> 

♦include <X11/Intrinsic .h> 
♦include <Xm/Text.h> 
♦include <hisde.h> 


int load text_widget 


file, widget, ptr ) ^ 

/* This function reads a file and loads the data into 

* a text widget. 

* 

* ( 0) - Successful operation 

* (-1) - Error occurred. 

*/ 


char 

♦file; 

/* Name of the file to be initialized. 
*/ 

Widget 

widget; 

jit Text widget to be initialized with file data. 
*/ 

int 

ptr; 

/* Pointer into the text widget where the new text 
* will go. 

*/ 

FILE 

*fp; 

/ * File pointer used to open and access the user's 
♦ history file. 

*/ 

register int 

V 

O 

1 

/ * pointer used to maintain position in the (string) 
♦ buffer when initializing command list. 

*/ 


/ * used to contain last character read (for EOF 
* checking) . 

*/ 


string! 101 ]; /* Buffer used to read in the command list data 

* (100 bytes at a time) . 

*/ 


/* 

* Open the file. If this fails, log and error and return. 
*/ 



if ( ( fp - fopen ( file, "r" ) ) 
return ( -1 ) ; 


NULL ) 


If starting pointer is -1, clear the text widget first. 

if ( ptr — -1 ) { 

clear_text_widget ( widget ) ; 
ptr - 0; 

\ 


Read data from the file, 
string. 


Read 100 bytes at a time and add to the text widget 


while ( ptr !- EOF ) { 

while ( i < 100 &£ ( string [ i ] - c - getc ( fp ) ) EOF ) 
i++; 

string [ i ] - NULL; 

XmText Replace ( widget, ptr, ptr, string ); 

if ( c -- EOF ) 
ptr « EOF; 

else { 

ptr +- i; 
i - 0; 

) 


Close the file, 
client . 


If an error occurs, output an error to the system message 


if ( fclose ( fp ) !- o ) 
return { -1 ) ; 


return ( 0 ) ; 
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* MODULE NAME AND FUNCTION ( update_text_widget ) 



* This function is used to update all text within a text widget. 


* 

* 

★ 

* 

* 

* 

* 

* 


SPECIFICATION DOCUMENTS: 

/hisde/req/ requirement s 
/hisde /design/ design 

ORIGINAL AUTHOR AND IDENTIFICATION: 


* 

★ 

* 

* 

* 

* 

* 

* 


* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 








* 

* 

* 


/ 


♦include <X11/Intrinsic .h> 
♦include <Xm/Text.h> 


void update_text_widget ( widget, new_text ) 
Widget widget; 
char *new text; 


/* Pointer to the text widget which will be updated. 
*/ 

/* The new string which is to be initialized in the 
* text widget . 

*/ 


* Replace the old text with the new text. 
*/ 


XmTextSetString { widget, new_text ); 
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# Makefile for HISDE user interface client h advisory. * 

##########################**###********«** # * ## *» ## * ###################################### 


# 

# Define the target which this file is to create. 

# 

TARGET - h_advisory 

# 

# Initialize include and library search paths to include current directory and the 

# HISDE directories. Note that the library path also includes the user interface 

# library. 

# 

BINDIR * /hisde/bin 

INCDIR “ /hisde/src/include 

INCDIRS - -I. -1$ (INCDIR) 

# 

* Define the libraries to search. This includes the HISDE library, the local user 

* interface library, and all required X libraries. 

* 

LIBRARIES - -lui -lhisde -lXm -IXt -1X11 

# 

# Define the compiler and linker flags. 

« 

C FLAGS - -O $ (INCDIRS) 

LDFLAGS - -O $ (EXTRAFLAGS) 


# 

# Define all objects which make up this target. 

# 

OBJS -\ 

cbr_exit_com. o\ 
tmr_stat_upd . o\ 
h_adv_bullet . o\ 
h_adv — msg.o\ 
h_advisory .o 

# 

# Define all header files required. 

» 

HDRS -\ 

$ (INCDIR) /h_advisory.h\ 

$ (INCDIR) /h_ advisory ,bit\ 

$ (INCDIR) /hisde.h 

# 

# Make the target. 

# 

all: $ (TARGET) 

$ (TARGET): $(OBJS) 

$<CC) -o $0 $ (OBJS) $ (LIBRARIES) $ (LDFLAGS) 

strip $ (TARGET) 

mv $ (TARGET) $ (BINDIR) 
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$ (OBJS ) : $ (HORS) 
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**************** ************************ 
MODULE NAME AND FUNCTION: ( h_advisory ) 




The h advisory client provides the user with the advisory window for the HISDE 
system. It allows the user to view received messages from the system, 
host, and other applications. There are five types of messages which may be 
received by this client. They are: 


1) application messages, 

2) error messages, 

3) host messages, 

4) informative messages, and 

5) warning messages. 

This client displays the received messages in a scrolling window and 
keeps a counter for each message type indicating the number of messages 
which have been displayed. This counter is displayed above the scroll window 

There is also a command button for each message type, which allows the user 
to turn a filter on and off for each message type. If the user selects 
a command button, turning the filter on, any messages received of that 
type are ignored. (That is, they are written to the log file, but not 
displayed in the scrolling window.) If the user selects the command button 
again, the filter is turned off, thus allowing messages of that type 
to be displayed again. The default for all filters will be 'OFF', but 
the user is allowed to run h_advisory with parameters to initialize 
particular message type filters as 'ON'. Whenever the state of a filter 
is changed, the command button's background and foreground colors 
are reversed to indicate the change. 

This client uses a timer routine to check the message queue for new 
messages. The default timer value is 2 seconds. If the user wants 
to change the interval, he/ she may do so in the command line when 
running advisory by using the '-interval' option. 

The log files created by this routine are the host bulletin log file 
which contains the host messages received in the message queue and 
the message log file which contains all of the messages received in 
the message queue. These files may be viewed by running h_bulletin 
for the host bulletin log and h_msg_look for the message log. 


DESCRIPTION OF MAIN FUNCTION: 

This is the main driver for the h_advisory client of the HISDE system. It 
initializes the X Windows system and then creates the widgets 
necesssary for the h_advisory window. The window created contains 
a label for the advisory window, an exit command button, a command button to 
turn each message type's filter on or off, labels and text for each type's 
unacknowledged message count, and a scrolling window for the display of 
messages . 

This client will display the window and then enter the XtMainLoop routine 
and periodically check for messages. It will also handle the user selecting 
a command button. If a filter button is selected the associated command 
function will be executed to switch the filter's state and reverse the 
button's color. The functions associated with each message type are: 


Application messages 
Error messages 
Host messages 
Informative messages 

Warning messages 


- appl — command ( ) , 

- er recommend < ) , 

- host_commandO , 

- info_ command () , and 

- warn commando . 




./h_advisory/h_advisory.c 


If th® exit button is selected^ the exit__command() function is executed 
and h_advisory is terminated. 

In order to periodically check the message queue for messages, a timer 
is started before entering XtMainLoop. When this timer expires, 
the update_status ( ) function is executed. This function will retrieve 
any messages from the queue, check the message types and display any 
messages whose filter is not turned on. Once all messages have been 
retrieved from the queue, the timer is started again. This will 
continue until the user selects the exit button. 


SPECIFICATION DOCUMENTS: 

/ hisde / r eq/ r equi r ement s 
/hisde/design/design 


EXECUTION SEQUENCE: 

h_advisory t-appl] [-err] [-host] [-info] [-warn] [-interval seconds] 

In addition to the X Windows options which may be used when 
running h_advisory, the following options are defined: 

turns the filter on for application messages, 
turns the filter on for error messages, 
turns the filter on for host messages, 
turns the filter on for the informative messages, 
turns the filte on for warning messages. 

[seconds] - indicates the interval, in seconds, desired 
by the user. 


-appl 

-err 

-host 

-info 

-warn 

-interval 


FILES USED AND APPLICATION DEFINED FORMATS: 

/hisde/ .msg_ log - This file is used by the h_advisory client to log all 

messages received in the message queue. It is set up 
as a circular file with a maximum number of messages. 
Because it is a circular file, each message written 
to this file must be of the same length. Therefore, 
each message is written to a blank message buffer of 
the maximum message size possible. In order to 
maintain this file, the last position written to in the 
file each time a message is added is written at the 
beginning of the file. The maximum sizes for this 
file are defined in the h_logfiles.h header file. 

struct .msg_log { 

char [POSITION_OFFSET] last position; 

char [MAX_NUM_MSG * MAX_ME S SAGE ] messages; 


/hisde/ .host_log - This file is used by the h_advisory client to log all 

host messages received in the message queue. It is set 
up as a circular file with a maximum number of messages 
Because it is a circular file, each message written 
to this file must be of the same length. Therefore, 
each message plus a newline are written to a blank 
message buffer of the maximum message size possible. 

The newline is necessary for the display of these 
message in the h_bulletin client. In order to 
maintain this file, the last position written to in the 
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file each time a message is added is written at the 
beginning of the file. The maximum sizes for this 
file are defined in the h_logfiles.h header file. 



struct .host_log ( 

char [POSITION_OFFSET] last_posi.ti.on; 

char [MAX_NUM_HOST * MAX_MESSAGE] messages; 


* ORIGINAL AUTHOR AND IDENTIFICATION: 


* 

* 


* 

* 

* 

★ 

* 


****** 


Nancy L. Martin - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 


Southwest Research Institute 

******************************************************** *********** **********/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio .h> 

<Xll/IntrinsicP .h> 
<Xll/StringDef s .h> 
<X11/Cardinals .h> 
<X11/Shell.h> 
<Xm/MainW.h> 
<Xm/RowColumn . h> 
<Xm/ronn.h> 

<fcntl .h> 

<hisde.h> 
<h_user_inter . h> 
<h_advisory . h> 
<h_advisory . bit > 
<h_ logf iles . h> 


* Declare all external widgets to be used by the h_advisory application. 

* This is required for their use in the callback and action routines. 

*/ 

Widget top, m_jmain, mb_main, mp_ file, aform, widget, 
appl_txt , appl_ tog, 
err_txt, err_tog, 
host_t xt , host_t og, 
info_txt, info_tog, 
warn_txt , warn_t og, 
msg_scrll; 

/* 

* Declare the filter flags and counters for each message type. 

*/ 

int mtype_counters [ NUMBER__MSG_TYPES ] ; 

/* 

* Declare the current position values in the host bulletin log and the message 

* log. 

*/ 


long last^position, 
log_ position; 


/* 

* 


Declare the interval to be used when checking the message queue for 
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* messages. It' a default ia 2 seconds. Thia may be changed in the 

* command line with the -interval parameter. 


*/ 


unaigned long timer_interval - DEFAULT^ INTERVAL; 

/* 

* Declare the callback procedurea to be executd when a command button is selected. 

* / 


extern XtCallbackProc exit_command() ; 

/* 

* Declare the callback procedure to be executed when 
*/ 

extern XtTimerCallbackProc update_status ( ) ; 


the timer value expires . 


main ( argc, argv ) 
int argc; 

char **argv; 

{ 

/* 

* Flaga indicating whether the user requested any message type filters to 

* be initially set to 'off' . This can be indicated in the command line by 

* the -appl, -err, -host, -info, and -warn options. 


fill, 

/* 

Application message. 

f 112, 

/* 

Error message. 

fil3. 

/* 

Host message. 

f 114, 

/* 

Informative message. 

f i!5; 

/* 

Warning message. 


*/ 

*/ 

V 

*/ 

*/ 


* Declare the application-specific resources allowed by this client The 

* resources which may be set are the message type filters and the interval desired 

* for checking the message queue. 


static XrmOptionDescRec options! ] - ( 


{"-appl". 

"AAppl" 

, XrmoptionNoArg, "True"} 


{ "-err". 

"AErr", 

XrmoptionNoArg, "True" } 


{ "-host". 

"AHost" 

, XrmoptionNoArg, "True"} 


{ "-info". 

"Ainfo" 

f XrmoptionNoArg, "True") 


{ "-warn". 

"AWam" 

, XrmoptionNoArg, "True"} 


{ "-interval 

}; 

", "Interval", XrmoptionSepArg, NULL ) 


static XtResource resources [ ] » { 


"aappl", 

"AAppl" , 

xtRBoolean, sireof (Boolean) , 

(Cardinal) sfill. 


XtRString, 

"False" }, 


"aerr". 

"AErr", 

XtRBoolean, sizeof (Boolean) , 

(Cardinal) £fil2. 


XtRString, 

"False" }, 


"ahost". 

"AHost", 

XtRBoolean, sizeof (Boolean) , 

(Cardinal) 4fil3, 


XtRString, 

"False" }, 


"ainfo". 

"Ainfo", 

XtRBoolean, sizeof (Boolean) , 

(Cardinal) £fil4. 


XtRString, 

"False" }, 


"awarn". 

"AWam", 

XtRBoolean, sizeof (Boolean) , 

(Cardinal) Sfil5, 


XtRString, 

"False" }, 


"interval". 

"Interval", 

XtRInt, sizeof (int) , 

(Cardinal) 4timer_interval 


XtRInt, 

(caddr_t) fctimer_interval } 





} ; 


,/h_advisory/h_advisory.c 


Declare the callback list array to be used when creating command w i d 9 «ts . 
This array will contain the routines to be executed when the associated 
command button is selected. 


static XtCallbackRec command^ callbacks [] ■ { 

{ (XtCallbackProc) NULL, (caddr_t) NULL }, 

{ (XtCallbackProc) NULL, (caddr_t) NULL } 


Arg 


icon_arg, 
args[ 1 ]; 


f * Argument used to initialize the icon. 

*/ 

/ ★ Argument list used to initialize various 
* widget resources . 

*/ 


Xtlntervalld id; 


/* The ID necessary for identifying the timer. 
*/ 


int 


char 


/* The file descriptor of the opened log files. 
*/ 

/* used to step through the array of message 

* counters. 

*/ 

position [POSITION_OFFSET] ; 

/* Character string used to read the last 

* the last position written to value from the 

* log files. 

*/ 


Initialize the message counters to zero. 


for ( i - 0; i < NUMBER_MSG_JTYPES ; i++ ) 
mtype_counters t i ] *0; 


Initialize the file positions for the message and host bulletin log files 
Open the files, read the position value, convert the value to an integer, 
and assign it to the appropriate external variable for each file. 

If there is not a log file, assign the position value to be zero. 


if ( ( f d - open ( HISDE_HOST_LOG, 0_RD0NLY ) ) <- NULL ) ( 

last^position - ZERO; 

1 el if ( read ( fd, position, POSITION_OFFSET ) !- POSITION_OFFSET ) { 

fprintf ( stdorr, "h_ advisory : Cannot read host bulletin file position 

close (fd) ; 
exit (-1) ; 

} else { 

last_position * atoi ( position ) ; 
close (fd); 

) 

if ( ( fd - open ( HISDE — MSG_LOG, 0_RD0NLY ) ) <- NULL ) { 

log_p°sition * ZERO; 

} el if ( read ( fd, position, POSITION_OFFSET ) !- POSITION_OFFSET ) { 

fprintf ( stderr, "h_advisory : Cannot read message log file position. 
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close (fd) ; 
exit (-1) ; 

} else { 

log_position » atoi ( position ) ; 
close (fd); 

) 

) 

/* 

* Initialize the X Windows system and create the top level widget for the advisory 

* screen. 1 




top - Xtlnitialize ( ADVISORY_SHELL, ADVISORY_CLASS, options, XtNumber (options) , 

fiargc, argv ) ; 


/* 

If there were invalid arguments on the command line which could not be parsed, 

* call the function, bad syntax, to display the correct syntax and exit from 

* the client. 

*/ 


if ( argc > 1 ) 
bad_syntax ( 

”h_advisory [-interval time] [-appl] [-err] [-host] [-info] [-warn]" ), 

/* 

* Initialize the icon bitmap for this client. 

*/ 


XtSetArg ( icon_arg, XtNiconPixmap, 

XCreateBitmapFromData ( XtDisplay (top) , XtScreen (top) -> root, 
h_advisory_bits, h_advisory_width, h_advisory_height ) ) ; 

XtSetValues ( top, sicon_arg, ONE ); 


Retrieve any application-specific resources which were initialized previously or 
in the command line. This includes both initialization of message type filters 
and the message queue read interval. Multiply the specified interval by 1000 to 
get it into milliseconds . 


XtGetApplicationResources (top, (caddr_t) NULL, 

NULL, ZERO ) ; 

timer_interval - timer_interval * 1000; 


resources, XtNumber (resources) , 


/* 

* Create the main window widget and the menu bar which will contain all commands. 


m__main * XmCreateMainWindow ( top, NULL, 0 ); 
XtManageChild ( m_main ) ; 

mb_main - XmCroateMenuBar ( m_main, NULL, 0 ); 

XtManageChild ( mb_main ) ; 


/* 

* Create pulldown for file commands . 
*/ 


command_callbac)cs [ 0 ] .callback - (XtCallbackProc)exit_command; 

* XmCreatePulldownMenu ( mb_main, w ", NULL, 0 ) ; 
create_cascade ( nn 9 mb_jnain, rtp_file, LABEL FI LE 
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create_command ( mp_file, LABEL_EXIT, command_callbacks ) ; 

/* 

* Create the help cascade. 

V 



widget — create_cascade ( "*» mb_main, NULL/ LABEL_HELP ) ; 
XtSetArg ( argsT 0 ], XroNmenuHelpWidget, widget ); 
XtSetValues < tnb_main, args, 1 ) ; 


/* 

* Create the HISDE Advisory window which will contain command buttons to filter 

* each message type, text widgets to display the unacknowledged message counts 

* for each type, and a scrolling window for the display of received messages. 

*/ 


aform - create form ( m_main ) ; 


/* 

* The text widgets will contain strings which have a message type label and the 

* message counter. The counter is initialized to zero. 

* An assignment to the command callback list is made to indicate which callback 

* function is to be called when the created button is selected. 

*/ 


appl_tog 

- 

create_toggle 

< 

W_TG_APPL, 

aform. 

LABEL_APPL ) ; 





appl_t xt 

■ 

create_text 

< 

W_ T _APP L , 

aform. 

"0", 0, XmSINGLE_ 

_LINE_ 

_EDIT, 

0 

) ; 

err_tog 

. 

create_toggle 

< 

W _ TG _ ERR ' 

aform, 

LABEL_ERR ) ; 





err_txt 

- 

Greatest ext 

< 

W_T_ERR, 

aform, 

"0", 0, XmSINGLE_ 

_LINE_ 

_EDIT, 

0 

) ; 

host_tog 


create_toggle 

( 

W_TG_HOST, 

aform. 

LABEL_HOST ) ; 





hoat_txt 

* 

create_text 

< 

VJTJkiOST, 

aform, 

"0", 0, XmSINGLE_ 

_LINE_ 

_EDIT, 

0 

) ; 

info_tog 

m 

create_toggle 

< 

w_tg_info, 

aform. 

LABEL_INFO ) ; 





inf o_txt 

- 

create_text 

< 

WJT_INFO, 

aform. 

"0", 0, XmSINGLE_ 

. LINE - 

JSDIT, 

0 

) ; 

warn_tog 

• 

create_toggle 

( 

W_TG_WARN, 

aform. 

LABEL WARN ) ; 





warn_txt 

- 

create_text 

( 

W_T_WARN, 

aform, 

"0", 0, XmS INGLE_ 

_LINE_ 

_EDIT, 

0 

) ; 


/* 

* Create the text widget to be used as the message window. It is created 

* with a vertical scrollbar to allow the user to page through displayed 

* messages . 

*/ 


msg_scrll - create_text ( MSG_TEXT_SW, aform, 1, XmMULT I_L INE_ED I T , 0 ) ; 

/* 

* Initialize the first iteration of the timer. This will cause the update_status 

* callback routine to be executed. This routine will reset the timer each time 

* it completes its function. 

*/ 


id - XtAddTimeOut ( timer_interval, update_status, NULL ) ; 


/* 

* Call XtRealizeWidget on the top level widget to display the h_advisory window. 

* Next, enter the XtMainLoop routine to process events, timers, and actions. 

* This client will be terminated in a callback routine when the user has 

* requested to exit the advisory window. 

*/ 


XtRealizeWidget ( top ) ; 
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/* 

* If a message type filter has been selected to be set, turn the filter 

* on and reverse the command button's colors. 

*/ 

if ( fill ) 


if 

XmToggleButt onSet State 
( fil2 ) 

< 

appl_tog, 

TRUE, 

FALSE 

) ; 

if 

XmToggleButt onSet St ate 
( fil3 ) 

( 

err_tog. 

TRUE, 

FALSE 

) ; 

if 

XmToggleButt onSet State 
( f i!4 ) 

< 

ho3t_tog, 

TRUE, 

FALSE 

) ; 

if 

XmToggleButtonSet State 
( ffilS ) 

< 

info_tog. 

TRUE, 

FALSE 

) ; 


XmToggleButt onSet State 

< 

warn_tog, 

TRUE, 

FALSE 

) ; 


/* 

* Enter the Xtoolkit main loop to coordinate processing of all widget events . 

* This loop is terminated when the user selects the exit command button and 

* the associated callback procedure is executed to terminate this client 
*/ 





XtMainLoop ( ) ; 
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/★*********************************** 

* MODULE NAME AND FUNCTION: ( update_host_bulletin ) 




* This function will open the host bulletin log file and add the most 

* recent host message into the next available position in the file. 

* If the file has exceeded its maximum size, the new message will be 

* written over the oldest message in the file. In order to maintain 

* this circular file, the last position written to in the file is 

* stored in the first twenty bytes of the file. This position value 

* indicates where the next message should be written on the next pass 

* through this function. 


★ 

* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/ requirements 

* /hisde/design/design 

* 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Nancy L. Martin - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 
*****************************************************************************************/ 


♦include <stdio . h> 
♦include <fcntl.h> 
♦include <hisde . h> 
♦include <h_advisory .h> 
♦include <h_logfiles .h> 


update_host_bulletin ( new_record, last_position ) 

char *new_record; /* Specifies the new host message to be 

/* added to the file. 

long last_position; /* Specifies the last position written to 

/* in the file. 


*/ 

*/ 

*/ 

*/ 


* Declare the buffers used to write the last position value and the messages 

* to the host bulletin log file. 

*/ 

char buffer [MAX_MESSAGE ] , 

position [POSITION_OFFSET] ; 

/* 

* Declare the values needed to open the host bulletin log file. 

*/ 

int open ( ) , fd; 

/* 

* Declare the value to be used to step through the output buffers. 

*/ 

register int i; 

/* 

* Initialize the message output buffer to blanks. 

*/ 

for ( i - 0; i < MAX_ME S SAGE ; i++ ) 

buffer [i] - BLANK; 

/* 

* Open the host bulletin log file. If the file is not already created, create it 

* with the appropriate protections. 
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^ open is not successful, display a message and exit h advisory. 

* / 

if ( ( fd - open ( HISDE_HOST_LOG, 0_WR0NLY | 0_CREAT, 0666 )) <- NULL ) { 

fprintf ( stderr, "h_advisory: Cannot open host bulletin file" ) • 

exit (-1) ; 

} 

/* 

* Build a constant size buffer for writing the passed message to the host bulletin 

* log file. 

*/ 

sprintf ( buffer, "%s", new record ); 

/* 




★ 

* 

* 

* 

★ 

* 

*/ 


/* 


Determine where the message should be written in the log file. If the 
last position written to in this file was at the end of the file or 
if it is the first message being written to the file, set the file 
position to be just passt the bytes allotted for the file position value. 
Then set the last-position-written-to value to be the size of the previous 
position value plus the size of the new message. 

if ( ( last_position >- MAX_HOST_LOG ) I I ( last position — 0 ) ) { 
lseek ( fd, POSITION_OFFSET, 0 ) ; 
last_position - MAX_MESSAGE + POSITION_OFFSET; 


* 

★ 

*/ 


Otherwise, set the file position to the last file position and increase the 
last position wrxtten to by the size of the new message. 



/* 


} else { 

lseek { fd, last_position, 0 ) ; 
last _position +- MAX MESSAGE; 

} 

Write the new message to the current file position. If an errror occurs 
display a message and exit the h_advisory client. 

if ( write ( fd, buffer, MAX_MES SAGE ) !- MAX_MESSAGE ) { 

fprintf ( stderr, 

"h_advisory: Cannot write to host bulletin file " ) • 

close ( fd ) ; ' 

exit (-1) ; 

> 


* Set the position output buffer to blanks. 
*/ 

for ( i - 0; i < POSITION_OFFSET; i++ ) 
position [i] - BLANK; 

/* 


* Assign the new position value to the output buffer and write it 

* to the beginning of the file. 

* 


If an error occurs, display a message, close the file, and exit the 

* h_advisory client . 

*/ 

sprintf ( position, "%d", last_position ); 
lseek ( fd, 0L, 0 ) ; 

if ( write ( fd, position, POSITION_OFFSET ) !- POSITION OFFSET ) { 

fprintf ( stderr, ~ 

"h_advisory: Cannot write to host bulletin file." ); 

close ( fd ) ; 
exit (-1) ; 

) 

/* 

* If the new message was successfully written to the host bulletin log 
file, close the file and return the last position written to value 

* to the calling routine for use on future calls to update this file. 
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} 


close ( fd ) ; 

return ( last_position ) ; 
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★ 

* 

* 

★ 

* 

* 

* 

it 

it 

it 

★ 

★ 

it 

it 

it 

it 

it 

it 

it 

it 

it 

* 

★ 

★ 

★ 

★ 

★ 

* 

★ 

★ 

* 

it 

it 

★ 

it 

it 

★ 

★ 

★ 

★ 

★ 

* 

★ * 


This function is a timer callback procedure which is executed when the 
timer interval expires. This function executes a loop until there 
are no longer any messages waiting in the message queue. 

Within this loop, a message and message type are received. As each 
message is received it is written to the message log file (and the 
host bulletin log file, if it is a host message) . If the filter 
for the received message type is set, processing is stopped on this 
message and the next message is retrieved. Otherwise, a message counter 
is incremented to indicate the number of unacknowledged messages which 
have been received for this message type. Next, the text containing 
the message counter is updated by calling update_text_widget 
for the appropriate message type's text widget. When the change has 
been completed, the new counter and label are copied over the old 
text and a flag is set to indicate that there is a new message to 
be displayed. 

If a new message is to be added to the list of displayed messages, 
a new list of messages is allocated and created by adding the new 
message to the end of the old list, old_message. If this is accomplished 
without error, the new list, new_message, is copied over the old list, 
old_message. This process is done until there are no more ~~ 

messages waiting in the message queue. 

When all messages have been retrieved from the queue and processed, 
the change flag is checked. If this flag is set then the size of 
the new list is checked. if this size exceeds the current size 
of the text widget, list_size, then the widget is destroyed and 
recreated with a text size that has been incremented to accomodate 
the new messages. Otherwise, the new messages are inserted at the 
end of the text currently displayed in the scroll window. 

Once the widget has been recreated or updated, the 
input cursor is set at the beginning of the most recently added 
message by calling XtTextSetlnsertionPoint using the size of the 
previously displayed list of messages as the marker. 

Finally, update_status reinitializes the timer value. This will cause 
update_status to be called continually, at the specified interval, to 
check the message queue for messages. 


SPECIFICATION DOCUMENTS: 

/hisde/ req/ requirements 
/hisde/design/design 


EXTERNAL DATA USED: ('I' - Input '0' - Output 'I/O' - Input/Output) 

ORIGINAL AUTHOR AND IDENTIFICATION: 

Nancy L. Martin - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 

fc*********************************************************************^^^^^ 


♦include <stdio.h> 

♦include <X11/Intrinsic .h> 
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♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<Xll/StringDefs .h> 
<X11/Cardinals . h> 
<Xm/Text . h> 
<Xm/ToggleB . h> 
<hisde . h> 

<h__user_inter .h> 
<h__advisory . h> 
<sys/types .h> 

<sys/ ipc . h> 
<sys/msg . h> 


^ * Declare the current position values in the host bulletin log and the message 
* log. 

*/ 

extern long last _j position, 

log^ position; 


/* 

* Declare the timer interval value for use in starting the timer back up. 
*/ 

extern long timer_interval; 

/* 

* Declare the message counter array and filters so they may be checked and 

* updated . 

*/ 

extern int mtype_counters [ ] ; 


* Declare the widgets which are accessed when the message counters and 

* messages are updated. 

*/ 


extern Widget 


appl_txt f 
err_txt, 
host_txt , 
inf o_txt, 
wa rn_txt , 
msg_scrll; 


appl_ tog, 

err_tog, 

host_tog, 

info_tog, 

warn_tog. 


extern char *malloc(); 


XtTimerCallbackProc update^ status 


caddr t 


client data; 


client_data, id ) 

/* Specifies the client date that was registered 
★ registered for this procedure in XtAddTimeOut . 
*/ 


Xtlntervalld *id; 


{ 

char *temp_message, 
*me s s a ge__t ype , 
*old_message; 


/★ specifies the ID returned from the corresponding 

* corresponding XtAddTimeOut call. 

*/ 

/* will point to complete formatted message. 

*/ 

/* Will point to text message type. 

*/ 

/★ will point to existing message text. It is 

* needed to compute length. 



int 



*/ 

message^aize - 0, 

/* 


*/ 

updates - FALSE, 

/* 3 


★ i 

size; 

*/ 

/* : 
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/* Set to the current length of the message list. 



*/ 


struct advisory_struct message; 
key_t msg_queue; 


/* 

* 

*/ 


Get the contents and length of the current message list . 


old^message - get_text_widget { msg_scrll ) ; 
message_size - strlen ( old_message ) ; 

XtFree ( old_message ) ; 


/* 

* interval^check° retrieve a11 messa 9 es tha t have been received since the last 
*/ 


msg_queue - H_ADV_MESSAGE_KEY + (key_t) h_get_tty () ; 

while ( msgrcv ( msgget ( msg_queue, 0 ) , Smessage, MAX MESSAGE LENGTH 
OL, IPC NOWAIT )!--!) - - ' 

{ 

updates - FALSE; 


/* 

* If a message is recieved, udpate the appropriate message count. 


if 


< message. adv_mtype — MSG_APPLICATION ) { 
message_type - APPL TYPE; 


updates - update_label ( message .adv_mtype, appl txt, appl tog ); 

} else if ( message. adv_mtype MSG_ERROR ) { ~ y 

message_type - ERR_TYPE; 

updates - update_label ( message. ady_mtype, err_txt, err tog ); 

} else if ( message. adv_mtype MSG_HOST ) { — 

message_type - HOST_TYPE ; 

updates - update_label ( message. adv_mtype, host_txt, host tog ); 
i ast_position - update_host_bulletin ( message . adv_mtext, 

. . . _ . J last position ) ) < 0 ) { 

fprintf ( stderr, "h_advisory: Cannot log host bulletin" ) ; 

exit ( “ 1 ) ; 

} 

) else if ( message. adv_mtype — MSG_INFORMATION ) { 
message_type - INFO_TYPE ; 

updates - update_label ( message.adv_mtype, info_txt, info tog ); 

} else rf ( message. adv_mtype — MSG_WARN ING ) { ~ 

message_type - WARN_TYPE; 

updates - update_label ( message. adv_mtype, warn_txt, warn tog ); 

i 6x36 

fprintf ( stderr, "h_advisory: Invalid message type received: \n%s\n" 
message. adv_mtext ); 


/* 

* Allocate storage for the received 


message, its type, and its type name. 



* Next, 

*/ 
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create the full message in the temp_message buffer. 



size - strlen ( message . a dv_mt ext ) + MESSAGE_LEADIN_SIZE; 
if ( ( temp_message - malloc ( (unsigned) size) ) — NULL ) { 

fprintf ( stderr, "Cannot allocate space to build current message" ) ; 

exit (-1) ; 

sprintf ( temp_message, "%s (%d) %s%s\n", MESSAGE_LEADIN, 

message . a dv__mtype, message_type, message . adv_mt ext ); 


* Call update message log to add the full message to the message log file. 
*/ 


if ( ( log_j 30 sition - update^ message_log ( temp_message, log_position ) ) < 0 ) { 
fprintf { stderr, "h_advisory: Cannot update log file with new message" ) ; 
exit (-1) ; 

} 

/* 

* Append the message to the existing list. 

*/ 

if ( updates ) ( 

XmText Set Insert ionPos it ion ( msg_scrll, message_size ); 
insert_text_widget ( msg_scrll, temp_ message ) ; 
message_size +* strlen ( temp__message ) ; 

} 

} 

/* 

* When the message queue has been emptied and all updates have been made, reset 

* the timer so that this routine will be called continually until the user 

* selects to exit the h_advisory client. 

*/ 


★ id - XtAddTimeOut ( timer_interval, update_status, NULL ) ; 

} 


/***★*******★★**★★★★★★*★★★★★★★★*★★*★★★**★★★★★★★★★★**************************************** 

* MODULE NAME AND FUNCTION: update label * 

* * 

* This function will, if the appropriate filter is off, update the appropriate * 

* message count. In this instance, it will return TRUE. * 

* * 

★ * 

★ EXTERNAL DATA USED: (' I' - Input 'O' - Output 'I/O' - Input /Output ) * 


★ mtype_counters [NUMBER_MSG_TYPES] (int) (I/O) - * 

★ An array of integers containing the unacknowledged * 

★ message counts for each message type. Each type's * 

★ counter is accessed by its message type number. * 

★a***************************************************************************************/ 


update_label ( index, 
int index; 


text_widget, toggle_widget ) 

/★ Specifies the message type index. 
*/ 


Widget text__widget 


/★ Text widget which will be updated. 
*/ 
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toggle_widget; /* Toggle widget which determines the state 

* filter. 

*/ 

{ 

char temp[ 10 ]; /* Buffer used to format the new message count. 

*/ 

/* 

* If the filter is disabled, increment the counter and update the text widget 
*/ 

if ( XmToggleButtonGetState ( toggle_widget ) -- FALSE ) ( 

++mtype_counters [ index - 1 ] ; 

sprintf ( temp, "%d", mtype_counters [ index - 1 ] ); 
update_text_widget ( text_widget, temp ); 
return ( TRUE ) ; 

/* 

* Otherwise, return FALSE to indicate that the filter is enabled 
*/ 

} else 

return ( FALSE ) ; 

} 



of the 
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* MODULE NAME AND FUNCTION: ( update_message_log ) 

This function will open the message log file and add the most recent 
message into the next available position in the 

exceeded its maximum size, the new message will be written over the 
1rt ... me a s acre in the file. In order to maintain this circular file, 
?htlast position written to in the file is stored in the first twenty 
bvtes of the file. This position value indicates where the next message 
should be written on the next pass through this function. 


* 

★ 

* 

★ 

* 

★ 

★ 

* 

* 

* 

★ 

★ 

★ 


SPECIFICATION DOCUMENTS: 

/hisde/req/ requirements 
/hisde/design/design 

ORIGINAL AUTHOR AND IDENTIFICATION: 

Nancv L. Martin - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 

t ************..************************************************************************* / 


# include <stdio.h> 
♦include <fcntl.h> 
♦include <hisde . h> 
♦include <h_advisory .h> 
♦include <h_logf iles .h> 


update_message_log ( new_record, 
char *new_record; 

long log_position; 


log_position ) 

/* specifies the new message to be 
/* added to the file. 

/* Specifies the last position 
/* written to in the file. 


*/ 

*/ 

*/ 

*/ 


/* Define the buffers used to write the last position value and the messages 

* to the message log file. 

*/ 

char buffer [MAX_MESSAGE] , 

position [POSITION_OFFSET] ; 

' * Define the values needed to open the message log file. 

*/ 

int open ( ) , f d; 

'l Declare the value to be used to step through the output buffers. 

*/ 

register int i; 

/* 

* initialize the message output buffer to blanks. 

*/ 

for ( i - 0; i < MAX_MES S AGE ; i++ ) 

buffer [i] “ BLANK; 



Open the message log file. If the file is not already created, create 
with the appropriate protections. 


successful , 


display a message and exit h_advisory. 


it 


If the open is not 
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/* 

* 

* 

*/ 


if " ° P * n ( HISDE_MSG_LOG, 0_WR0NLY I 0_CREAT, 0666 )) <« NULL ) { 

printf ( stderr, "h_advisory: Cannot open message log file" ) ; 

exit (“1) ; 

> 

log 1 fi!e C ° nStant SiZS bUffSr f ° r Writing the P aa3ed 'wssage to the message 


/* 

* 

★ 

* 

* 

* 


/* 

* 

* 

V 


/* 

* 

★ 

*/ 


sprintf ( buffer, "%s", new_record ); 

Determine where the message should be written in the log file If the 
last position written to in this file was at the end of the file or 
if it w the first message being written to the file, set the file 
position to be just past the bytes allotted for the file position value 
Then set the last-position-written-to value to be the size of the previous 
position value plus the size of the new message. 

if ( ( log_position >- MAX_MS G_LOG ) | | ( log position — 0 ) ) { 
lseek ( fd, POSITION_OFFSET, 0 ) ; 
l°g_position - MAX_ME S S AGE + POSITION_OFFSET; 

. set file Position to the last file position and increase the 
last position written to by the size of the new message. 

} else { 

lseek ( fd, log_position, 0 ) ; 
log_position +- MAX MESSAGE; 

} 

Write the new message to the current file position. If an error occurs 
display a message and exit the h_advisory client . ' 

if ( write ( fd, buffer, MAX_ME S S AGE ) !- MAX MESSAGE ) < 

f printf ( stderr, “ 

"h_advisory : Cannot write to message log file " )• 

close ( fd ) ; 
exit (-1); 


/* 

* 

*/ 


/* 

* 

★ 

★ 

* 

★ 

V 


/* 

•k 

* 

* 

*/ 


Set the position output buffer to blanks. 

for ( i - 0; i < POSITION_OFFSET; i++ ) 
position [i] - BLANK; 

beginnin^of'the S2? “ th * °" CPUt bUf£er “ d " rite U 

“advisory r cUen”' diSPlSy * me3Sag6 ' clo3e the file ' ^d exit the 

sprintf ( position, "%d", log position ); 
lseek ( fd, 0L, 0 ) ; 

if ( write ( fd, position, POSITION_OFFSET ) !- POSITION OFFSET ) { 
fprrntf ( stderr, — 1 

"h_advisory: Cannot write to message log file." )• 

close ( fd ) ; 
exit (-1) ; 

> 

If the new message was successfully written to the message log 
fiie, close the file and return the last-position-written-to value 
to the calling routine for use on future calls to update this file. 

close ( fd ) ; 


pfS 
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return ( log_position ) ; 
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/*************************************************************************** 
* MODULE NAME AND FUNCTION: exit_Command ( ) 






* 


* The exit_command function is a callback procedure attached to the exit 

* command button of the h_advisory client. This function causes the client 

* to terminate naturally when the user selects the exit button. 

* 

★ 

* SPECIFICATION DOCUMENTS: 

* 


* 

★ 

it 

it 

it 

it 

it 

* 

it 

ir 


/hisde/req/ requirements 
/hisde /design /design 

EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input /Output ) 

top (Widget) (I) - The top level form widget for the h_advisory client. 


it 


* 


* 

it 


it 


it 

* 


it 


it 

it 

* 

* 

* 

* 

* 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 


* 


Nancy L. Martin - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 






* 

★ 

* 

★ 

/ 


♦include <X11/Intrinsic . h> 


/* 

* Declare the top level widget . 
*/ 

extern Widget top; 


XtCallbackProc exit_command 
Widget widget ; 


( widget, closure, calldata ) 

/* Set to the widget which initiated this callback 
* function. 

*/ 


{ 

/* 

★ 

*/ 


caddr_t closure. 


calldata; 


/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 


Remove the top level widget and then close the h_advisory display. 


XtUnmapWidget ( top ) ; 

XCloseDisplay ( XtDisplay ( top ) ) ; 


/* 

* Exit the h_advisory client with a zero. 
*/ 
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exit ( 0 ) ; 
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# Makefile for HISDE user interface client h_bulletin 

##################################### ################ ; ##################################< 


* 

# Define the target which this file is to create. 

# 


TARGET - h_bulletin 

* 

# Initialize include and library search paths to include current directory and the 

# HISDE directories. Note that the library path also includes the user interface 

# library. 

# 

BINDIR - /hisde/bin 

INCDIR - / hisde / s rc/ include 

INCDIRS - -I. -1$ (INCDIR) 

* 

# Define the libraries to search. This includes the HISDE library, the local user 

# interface library, and all required X libraries. 

» 

LIBRARIES - -lui -lhisde -lXm -lxt -1X11 

# 

# Define the compiler and linker flags. 

* 

CFLAGS - -O $ (INCDIRS) 

LDFLAGS - -O $( EXTRAFLAGS ) 

* 

# Define all objects which make up this target. 

# 

OBJS -\ 

tmr_bul_upd . o\ 
cbr_exit_com . o\ 
update_win . o\ 
h_bulletin . o 

* 

# Define all header files required. 

» 


HDRS -\ 

$ (INCDIR) /h_bulletin.h\ 

$ (INCDIR) /hjbulletin . bit \ 
$ (INCDIR) /hisde. h 

* 

# Make the target . 

* 


all: $ (TARGET) 

$ (TARGET): $ (OBJS) 

$(CC) -o $0 $ (OBJS) $ (LIBRARIES) $ (LDFLAGS) 

Strip $ (TARGET) 

mv $ (TARGET) $ (BINDIR) 
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* MODULE NAME AND FUNCTION: ( h_bulletin ) 

★ 


The h_bulletin client provides the user with the host bulletin window for the 
HISDE system. It allows the user to view the host messages which have been 
received. 

This client displays the host bulletin log file in a scroll window which 
allows the user to view the last twenty host messages which were logged. 

This client uses a timer routine to check if new host messages have 
been logged. The default timer value is 2 seconds. If the user wants 
to change the interval, he/she may do so in the command line when 
running bulletin by using the '-interval' option. Whenever the timer 
expires, the last position written to is read from the host_log file 
and compared to the previous value read from the file. If the value 
has changed it is an indication that new messages have been written to the 
file . 


DESCRIPTION OF MAIN FUNCTION: 


This is the main driver for the h_bulletin client of the HISDE system. It 
initializes the X Windows system and then creates the widgets necessary for the 
^bulletin window. The window created contains a label for the bulletin 
window, an exit command button, and a scroll window for the display of the 
logged host bulletins. 

This client will display the window and then enter the XtMainLoop routine 
and periodically update the display. It will also handle the user selecting 
a command button. 

^ the exit button is selected, the exit commando function is executed 

and h_bulletin is terminated. 

In order to periodically update the host bulletin display, a timer is started 
before entering XtMainLoop. When this timer expires, the update_bulletin ( ) 
function is executed. This function will access the host bulletin log file and 
check if the position last written to has changed. If this is the case then new 
messages have been received and the scroll window needs to be updated. Once the 
scroll window has been updated, the timer is started again. This will continue 
until the user selects the exit button. 


SPECIFICATION DOCUMENTS: 

/hisde/req/ requirements 
/hisde/design/design 


EXECUTION SEQUENCE: 


h_bulletin [-interval seconds] 

In addition to the X Windows options which may be used when running h bulletin 
the following options are defined: ~ 

-interval [seconds] - indicates the interval, in seconds, desired by the user. 


FILES USED AND APPLICATION DEFINED FORMATS: 


/hisde/ . host_log - This file is used by the h_bulletin client to retrieve 

all host messages received in the message queue. It 




★ 

* 

★ 

★ 

★ 

★ 


★ 

* 

* 

★ 

★ 

★ 

★ 

it 

it 
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is set up as a circular file with a maximum number of 
messages. Because it is a circular file, each message 
written to this file must be of the same length. 
Therefore, each message is read into a blank message 
buffer of the maximum message size possible.. The 
In order to maintain this file, the last position 
written to in the file the last time a message was 
added is stored at the beginning of the file. The 
maximum sizes for this file are defined in the 
h_logfiles.h header file. 

struct . host_log { 

char [POSITION_OFFSET] last_position; 

char [MAX_NUM_HOST * MAX_ME S S AGE ] messages; 



* ORIGINAL AUTHOR AND IDENTIFICATION: 


Nancy L. Martin - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 


* 

* 

* 

★ 

★ 

* 




# include 
# include 
♦ include 
# include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 


<stdio.h> 
<X11/Intrinsic .h> 
<Xll/StringDef 3 .h> 
<X11/Cardinals .h> 
<X11/Shell.h> 
<Xm/MainW.h> 
<Xm/RowColumn . h> 
<Xm/Form.h> 
chisde .h> 
<h_user_inter . h> 
<h_bullet in . h> 
<h_bullet in . bit > 
<h_ logf iles . h> 


* Declare all external widgets to be used by the h_bulletin application. 
it This is required for their use in the callback and action routines . 

*/ 

Widget top, mjnain, mb_main, mp_file, bform, widget, 
msg_scrll; 

/* 

* Declare the interval to be used for redisplaying the host bulletin log. 

* It's default is 2 seconds. This may be changed in the command line 

* with the -interval parameter. 

*/ 


unsigned long timer__ interval - DEFAULT^ INTERVAL ; 

/* 

* Declare the callback procedures to be executed when a command button is selected. 
*/ 


extern XtCallbackProc 


exit command ( ) ; 
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* Declare the callback procedure to be executed when the timer value expires. 
*/ 

extern XtTimerCallbackProc update_bulletin { ) ; 




main ( argc, argv ) 
int argc; 

char **argv; 

{ 

/* 


* Declare the application-specific resources allowed by this client. The 

* resource which may be set is the interval desired for updating the scroll 

* window. ~ 

*/ 


static XrmOptionDescRec options [] - { 

{’’-interval”, "Interval", XrmoptionSepArg, NULL } 

} / 


static XtResource resources!] " { 

{ "interval", "Interval", XtRInt, sizeof(int), 

XtRInt, (caddr_t) 4timer_interval J 


(Cardinal) &timer_interval. 


/* 

* Declare the callback list array to be used when creating command widgets. 
This array will contain the routines to be executed when the associated 

* command button is selected. 

*/ 


static XtCallbackRec command_callbacks [] - { 

{ (XtCallbackProc) NULL, (caddr_t) NULL }, 

{ (XtCallbackProc) NULL, (caddr t) NULL } 


Arg 


icon_arg, 
args [ 1 ] ; 


Xtlntervalld id; 


/* Argument used to initialize the icon 
*/ 

/* Argument list used to initialize various 
* widget resources . 

*/ 


/ 


*/ 


The ID necessary for identifying the timer. 


/* 

* Initialize the X Windows system and create the top level widget for the 

* host bulletin screen. 

*/ 


top - Xtlnitialize ( BULLET IN_SHELL, BULLET INCLASS, options, XtNumber (options) , 

fiargc, argv ) ; 

/* 

* If there were invalid arguments on the command line which could not be parsed, 

* call the function, bad syntax, to display the correct syntax and exit from 

* the client . 

*/ 


if ( argc > 1 ) 

bad_syntax ( "h_bulletin [-interval time]" ); 

/* 

* Initialize the icon bitmap for this client. 
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icon arg, XtNiconPixmap, 

XCreateBitmapFromData ( XtDisplay (top) , XtScreen (top) -> root, 
h bulletin_bits, h_bulletin_width, h_bulletin_height ) ) ; 

XtSetValues ( top, &icon_arg, ONE ) ; 


* Retrieve any application-specific resources which were initialized previously or 

* in the command line. This includes the scroll window update interval. 

* Multiply the specified interval by 1000 to convert in into milliseconds. 

*/ 

XtGetApplicationResources (top, (caddr_t) NULL, resources, XtNumber (resources) , 

NULL, ZERO ) ; 

timer interval - timer_interval * 1000; 




/* , 

* Create the main window widget and the menu bar which will contain all commands . 

*/ 


m_main - XmCreateMainWindow ( top, NULL, 0 ); 

XtManageChild ( m_main ) ; 

mb_main - XmCreateMenuBar ( m_main, NULL, 0 ); 

XtManageChild ( mb_main ) ; 


* Create pulldown for file commands. 

*/ 

command_callbacks [ 0 ] .callback - (XtCallbackProc) exit_command; 
mp_file “ XmCreatePulldownMenu ( mb_main, NULL, 0 ) ; 

create cascade ( mb_main, mp_file, LABEL_FILE ) ; 

create_command ( mp_file, LABEL_EXIT, command_callbacks ) ; 

/* 

* Create the help cascade. 

*/ 


widget m create_cascade ( mb_main, NULL, LABEL_HELP ) ; 

XtSetArg ( args [ 0 ], XmNmenuHelpWidget, widget ); 
XtSetValues ( mb main, args, 1 ) ; 


/* 

* Create the main form. 
*/ 


bform - create form ( m_main ) ; 


* Create the text widget to be used as the message window. It is created 

* with a vertical scrollbar to allow the user to page through displayed 

* messages. 

*/ 


msg scrll « create_text ( W_T_BULL, bform, 1, XmMULT I_L INE_ED I T , 0 ) ; 



Initialize the first iteration of the timer . This will cause the update_bulletin 
callback routine to be executed. This routine will reset the timer each time 
it completes its function. 
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id ■ XtAddTimeOut ( t imer_interval, update_bulletin, NULL ) ; 

Call XtRealizeWidget on the top level widget to display the h_bulletin window 


XtRealizeWidget ( top ) ; 

Enter the Xtoolkit main loop to coordinate processing of all widget events. 
This loop is terminated when the user selects the exit command button and 
the associated callback procedure is executed to terminate this client. 


XtMainLoop ( ) ; 
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* 


/*★*★**★★★*★******** a********************* 

* MODULE NAME AND FUNCTION: exit_command ( ) 

★ 

* The exit command function is a callback procedure attached to the exit 


command button of the h_bulletin client. This function causes the client 
to terminate naturally when the user selects the exit button. 


* SPECIFICATION DOCUMENTS: 

* 


/hisde / req/ requirements 
/hisde/design/design 


* EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input/Output) 

top (Widget) (I) - The top level form widget for the h_bulletin client. 


★ 

★ 

* 

★ 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

* 

* Nancy L. Martin - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 
**★**************************************************************************************/ 


★ 

* 

it 

it 

it 

it 

it 

it 

H 

it 

* 

* 

* 

it 

* 

* 

it 

it 

* 

★ 

+ 

* 

★ 

★ 


# include <X11/ Intrinsic .h> 


/* 

* Declare the top level widget . 
*/ 

extern Widget top; 


XtCallbackProc exit_command ( widget, closure, calldata ) 

Widget widget; /* Set to the widget which initiated this callback 

* function. 

*/ 


caddr t closure, /* Callback specific data. This parameter is not 

— * used by this function. 

*/ 

calldata; /* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 


{ 

/* 

* Remove the top level widget and then close the h_bulletin display. 
*/ 


XtUnmapWidget ( top ) ; 
XCloseDisplay ( XtDisplay (top) ); 


/* 

* Exit the h_bulletin client with a zero. 
*/ 





exit ( 0 ) ; 
J 
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* 


★ MODULE NAME AND FUNCTION: update_bullet in ( ) 

* 
it 


it 

it 

it 

it 

* 

it 

it 

* 

★ 

★ 


This function is a timer callback procedure which is executed when the timer 
interval expires. This function updates the scroll window with the contents of 
the host bulletin log file if there have been messages added to the file. 

(update bulletin) determines whether there have been new messages added by 
reading the position last written to the beginning of the file and comparing it 
to the value read from the file the last time an update was necessary. If these 
numbers are not the same then the file has been updated. 

Finally, update_bulletin reinitializes the timer value. This will cause 
update_bulletin to be called continually, at the specified interval, to update 
the host bulletin message scroll window when necessary. 


SPECIFICATION DOCUMENTS: 

/hisde / req/ requi rement s 
/hisde/design/design 


* EXTERNAL DATA USED : ( ' I ' 


Input 


Output 'I/O' - Input/Output) 


★ 

* 

* 

* 

★ 

* 

* 

★ 

★ 

* 

* 

★ 

★ 

* 


bform (Widget) (I) - The form widget created for the bulletin window. 

timer_interval (unsigned long) (I) - 

The interval used to set the timer for checking message queues . This 
value is initialized to the the value defined as DEFAULT_INTERVAL in 
the h_advisory.h include file. It may be changed in the command line 
when executing this client. This value should be given in seconds. 

It will be converted to milliseconds programmatically. 

msg scrll (Widget) (I/O) - 

The file text widget created for the display of messages in the message 
window. It is created with a vertical scroll bar on the left hand side 
to allow the user to page through displayed messages . 


* ORIGINAL AUTHOR AND IDENTIFICATION: 


Nancy L. Martin 


Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 






* 

★ 

* 

* 

* 

* 

it 

★ 

★ 

* 

★ 

* 

* 

t 

it 

* 

* 

* 

★ 

* 

* 

* 

* 

* * i 


#include <stdio.h> 

♦include <fcntl.h> 

♦include <X11/Intrinsic ,h> 

♦include <Xll/StringDef s .h> 

♦include <hisde.h> 

♦include <h_bulletin.h> 

♦include <h_logfiles . h> 

/* 

* Declare the timer interval value for use in starting the timer back up. 

*/ 


extern long timer_interval; 
/* 


Declare the widgets which are accessed for the update. 
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extern Widget bform, 

msg_scrll; 


XtTimerCallbackProc update_bulletin ( client_data, id ) 


caddr t 


client data; 


/* Specifies the client date that was registered 
* registered for this procedure in XtAddTimeOut 
*/ 


Xtlntervalld *id; 


< 

static int 


last_position 


/* Specifies the ID returned from the corresponding 
* corresponding XtAddTimeOut call. 

*/ 


0 ; 

/* The position value read from the file on the 
* previous update. 

*/ 


fd ' I* The file descriptor of the opened host bulletin 

* log file. 

*/ 

new__position; /* The value of the last position written to the 

* file. 

*/ 


char position [POSITION_OFFSET + 1 ]; 

/* The character string used to read in the last 
* position written to. 

*/ 


/* 

* Open the host bulletin log file for reading and read the value of 

* the last position written to from the beginning of the file. 

* / 

if ( { fd - open ( HISDE_HOST_LOG, 0_RDONLY ) ) <- NULL ) { 

h_message ( MSG_ERROR, "h_bulletin: Cannot open host bulletin file " ) • 

exit ( -1 ) ; ' 

} 

if ( read ( fd, position, POSITION_OFFSET ) !- POSITION_OFFSET ) { 

h_message ( MSG_ERROR, "h_bulletin: Cannot read host bulletin file position " ) 

close ( f d ) ; 
exit ( -1 ) ; 

} 

/* 

* Convert the character string read from the file to an integer and compare 
it to the value read from the file on the previous update. If the 

* value has changed, assign the new position offset to the static variable, 

* last_position, for use in the next pass through this function. Next, call 

* update_window to read the messages from the file and update the message 

* scroll window. 


new_position - atoi ( position ) ; 
if ( new _position !- last_position ) { 
last _position * new_position; 
update_window ( fd, new_position ) ; 
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After the window has been updated, 
close the host bulletin log file. 


or if it did not need to be updated. 


close ( fd ) ; 


When the scroll window has been updated (if needed), reset the timer so that 
this routine will be called continually until the user selects to exit 
the h bulletin client. 


*id - XtAddTimeOut ( timer_ interval, update_bulletin, NULL ) ; 
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/******************************************t*)if**t*******t********* ik * t ***** 

* MODULE NAME AND FUNCTION: update_window ( ) 

★ 






* 


* 

k 

if 

if 

if 

k 

* 

it 

if 

k 

k 

* 

* 

* 

★ 

* 

* 

★ 


This function is called to read in the host bulletin messages from the 
host bulletin log file starting with the oldest message. As each message 
is read, it will be concatenated onto the end of the buffer to be written 
in the message scroll window. When all message have been read from the 
the file, update_text_widget ( ) is called with the buffer of host messages 
to update the message scroll window with the new messages. The cursor will 
then be placed at the beginning of the newly added messages and the 
size of the message buffer is assigned to old_message_size for use during 
the next update. 

In order to determine where the first message is in the circular log file, 
update_window will attempt to read the first message past the last position 
written to in the file. If there is a message in this position then the 
file is full and this message is the oldest message. If there is not a 
message following the last position written to, the file is not yet full 
and the oldest message is the first message in the file. 


* SPECIFICATION DOCUMENTS : 

* 

* /hisde/req/ requirements 

* /hisde/design/design 


* 


* EXTERNAL DATA USED : ('I' 

* 

* msg_scrll (Widget) 

* 


- Input 'O' - Output 'I/O' - Input/Output) 

(I/O) - Text widget created for display of host messages. 


* 

* 

* 

k 

k 

* 


* 


★ 

★ 

* 

* 

it 

it 

k 

★ 

* 

* 

* 

* 

★ 

if 

if 

k 

k 

k 

if 


k 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

* 


* 

★ 

★ 

★ 

★ * 


Nancy L. Martin - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 




★ 


k 

if 

k 

k 

k 

t 


♦include <stdio.h> 

♦include <X11/Intrinsic .h> 
♦include <hisde.h> 

♦include <h_logf iles .h> 


extern Widget msg_scrll; 


upda te — window ( fd, new_position ) 


int fd, 


new_position; 


{ 

int 


if 


/* Specifies the file descriptor for the host 

* host bulletin log file. 

*/ 

/* Specifies the last position written to the host 

* bulletin log file. 

*/ 

/* Used to initialize the message buffer to blanks 
*/ 

/* Maintains the current position in the file. 

*/ 


position; 




char 

char 


buffer t 

display_msg [ 
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MAX_ME S S AGE + 1 ] ; 

/* Used to read in each host message. 

*/ 

MAX HOST_LOG + 1 ] ; 

" /* Buffer which will contain all host messages. 

*/ 



* Initialize the scroll window buffer to blanks and assign the first position 

* to be null for concatenation purposes. 

*/ 


for ( i - 0; i < MAX_HOST_LOG; i++ ); 

display_msg [ i ] “ BLANK; 
display_msg [ 0 ] ” NULL; 


/ * 

* Assign the last position written to as the position to seek to for reading. 
*/ 


position ■ new__position; 


* Try to read the next message after the most recently added message. If 

* the read fails, set the file position to the first message in the file 

* past the position value, read that message, and assign the file position 

* to be this message's starting point. 

* 

* If neither read is successful, call h_message to inform the user that 

* the host bulletin file cannot be read, close the file, and exit h_bulletin. 

*/ 

lseek ( fd, position, 0L ) ; 

if ( read ( fd, buffer, MAX_ME S S AGE ) <- 0 ) { 

lseek ( fd, POSITION_OFFSET, 0L ) ; 
position - POSITION_OFFSET; 

if ( read ( fd, buffer, MAX_MES S AGE ) <- 0 ) { 

h_message ( MSG_ERROR, "h_bulletin: Cannot read first bulletin" ); 
close ( fd ) ; 
exit ( -1 ) ; 

} 

} 

' ★ 

* If the oldest message was successfully read from the file, append a newline 

* to the end of the message and then attach the message to the message buffer. 

* Update the file position pointer to point to the next message. Each message 

* read from the file is the same size, MAX_ME S SAGE . 

*/ 


strcat ( buffer, "\n" ) ; 
strcat ( display^ msg, buffer ) ; 
position +- MAX_ME S S AGE ; 


* If the new file position is greater than or equal to the maximum size of the 

* host bulletin log file, wrap around to the first message in the file. Note: 

* the first message in the file is located after the value indicating the 

* last position written to in the file. This value is of the size, 

* POSITION_OFFSET. 

*/ 

if ( position >- MAX_HOST_LOG ) 



position - 
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POSITION OFFSET; 


Loop through the file reading the next message until the end of file is reached 
or the file position returns to the oldest message. 

For each message a newline is appended to the end of the message before it is 
attached to the end of the message buffer. The file position is updated to 
point to the next message in the file each time. 


while ( { read ( fd, buffer, MAX_MESSAGE ) > 0 ) Si ( position !- new position ) ) { 

strcat { buffer, "\n" ) ; 
strcat ( display_msg, buffer ) ; 
position +- MAX_MESSAGE; 


If the new file position is greater than or equal to the maximum size of the 
host bulletin log file, wrap around to the first message in the file. Note: 
the first message in the file is located after the value indicating the 
last position written to in the file. This value is of the size, 

POSITION OFFSET. 


if ( position >- MAX_HOST_LOG ) { 
position - POSITION_OFFSET; 
lseek ( fd, position, OL ) ; 

} 

> 


Update the text widget . 


update_text_widget ( msg_scrll, display_msg ) ; 

XmText Set Insert ionPos it ion ( msg_scrll, strlen ( display_msg ) ) ; 
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########################*#####*##***#************«* # * # * ########### * ###################### 

# Makefile for HISDE user interface client (h_cm_raenu) * 

######################*###**#*####*#**#********************************** ####### ########## 


« 

# Define the target which this file is to create. 

# 

TARGET - h_cm_menu 

# 

# Initialize include and library search paths to include current directory and the 

# HISDE directories. 

# 

BINDIR - /hisde/bin 

INCDIR - /hisde/ s rc/ include 

INCDIRS - -1$ (INCDIR) 

* 

# Define the libraries to search. This includes the CM manager, user interface, 

# HISDE main, and all X windows libraries. 

# 

LIBRARIES “ -lcmutil -lui -lhisde -lXm -lXt -1X11 


# 

# Define the compiler and linker flags. 

# 

CFLAGS - -0 $ (INCDIRS) 

LDFLAGS - -0 $ (EXTRAFLAGS ) 


* 

# Define all objects which make up this target. 

OBJS -\ 

cbr_cm_trm . o\ 
cbr_command . o\ 
cbr_clear . o\ 
set_to_insen . o\ 
h_cm_menu . o 

* 

# Define all header files required. 

* 


HDRS -\ 

$ ( INCD IR) / h_cm_menu . h \ 

$ (INCDIR) /h_cm_menu.bit\ 

$ (INCDIR) /h_user_inter .h\ 
$ (INCDIR) /cm_util.h\ 

$ (INCDIR) /hisde. h 


* 

# Make the target . 

* 

all: $ (TARGET) 

$ (TARGET): $ (OBJS) 

$(CC) -O $0 $ (OBJS) $ (LIBRARIES) $ (LDFLAGS) 

Strip $ (TARGET) 

mv $ (TARGET) $ (BINDIR) 




$ (OBJS) : 


$ ( HDRS ) 


./h_cm_menu/Makefile 
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***************************************** 
MODULE NAME AND FUNCTION: ( h_cm_menu ) 




This client provides the user interface to the configuration management utilities 
available on the local workstation. These commands provide access to the CM manager 
workstation and the central CM host. This involves submitting jobs (applications) to 
the CM manager workstation for compilation/loading, retrieving the executable files, 
archiving the application to the central CM host, and finally, retrieving executable 
files from the central CM host. The entire list of commands is as follows: 


SUBMIT - Submit a job (application) to the CM manager workstation for compilation 
and loading. 

STATUS - Obtain the status of a job active on the CM manager workstation. 


LISTDIR - List the contents of the directory corresponding to a job. 


INFO - Display all information entered by the user for a submitted job. 


RETURN - Return the newly loaded executable files to the local workstation. 
ARCHIVE - Send all the files for a job to the central CM host. 


CANCEL — Terminate a job and remove all associated files from the CM manager 
workstation . 


DOWNLOAD - Download a set of files resident on the central CM host, to the local 
workstation . 


HOSTDIR - Obtain a directory listing of files resident on the central CM host. 

Note that the critical piece of data identifying a job is called the job control num- 
ber. When the user submits an application to the CM manager workstation, a unique job 
control number will be assigned and returned to the user. The majority of the remain- 
ing commands will require entry of this number to identify the appropriate job. Note 
that some commands require additional data as well. The entire list of data items is 
as follows: 

Job Control Number - Identifies the specific job. It is used for the STATUS, 

LISTDIR, INFORMATION, RETURN, ARCHIVE, and CANCEL commands. 

Flight - Identifies the flight for which a job is to be certified for. It is 
used in the SUBMIT command. 

Directory - Identifies the source and/or destination of files. It is used for 
the SUBMIT and RETURN commands. 

Executables — Identifies a list of executables which will be returned to the 

local workstation. It is used for the SUBMIT and RETURN commands. 

Description - Provides a textual description of the application making up the 
job. It is used for the SUBMIT command. 

Note that some data items are required and others are optional. A summarization of 
the commands and required/optional data items is given below (Note that (R) indicates 
a required item and (0) indicates an option item) : 

SUBMIT - (R) Flight 

(0) Directory 
(O) Executables 
(0) Description 


STATUS 


(R) Job Control Number 
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LISTDIR - 

(0) 

Job Control 

Number 

INFO 

<R) 

Job Control 

Number 

RETURN 

<R) 

Job Control 

Number 


(0) 

Directory 



(0) 

Executables 


ARCHIVE - 

(R) 

Job Control 

Number 

CANCEL 

(R) 

Job Control 

Number 

DOWNLOAD - 

<R) 

Flight 



(R) 

Directory 



(R) 

Executables 


HOSTDIR - 

(0) 

Flight 


this client 

is 

executed, it 

will c 


functional sub-windows. These include the following: 


* 

* 

* 

* 

* 

* 

★ 

* 


ID Window - This window identifies the client and provides two commands. These * 
include: 


Clear - clear all input fields 
Exit - exit from this client 


Commands Window - This window contains each of the CM utility commands previously * 
discussed. * 


Input Window - This window contains the fields allowing entry of the data items 
previously discussed. Note that when no command is active, all 
input fields will be set to an insensitive state. In this state, * 
the borders and label text of the widgets will be displayed in a * 

different orientation and no mouse input will be acknowledged. * 

* 

Output Window - This window is used to display information output by certain * 

commands . * 

* 

In order to execute any of the CM utility commands, the user need simply select the * 
appropriate command button in the command window. At this time, all applicable fields * 
will change to a sensitive state, in which they appear in their normal orientation and * 

mouse/keyboard input is allowed. The user may now complete the appropriate fields and * 

then reselect the same command button to actually execute the command. The user may * 
alternatively select any other command button to abort the conmand. * 

* 

It is important to note that the data in the input fields will not be cleared from * 
command to command. This supports the basic sequence of CM commands, in which the * 

user submits a job (and receives a job control number) , makes several status requests * 
to determine its state, retrieves the executables, and finally, archives the files to * 
the CM host. With this sequence, the required data for each command is already pre- * 
sent in the input fields. In addition, certain other fields provide information about * 
the makeup of the job (even though they do not affect subsequent commands) . Note that * 
if the user does need to clear data from fields, he may use the clear command or any * 

of the normal keyboard sequences which are supported by the text widget . Note that * 

the clear command may be used in either command state (before and during data input) . * 

* 

Note that when a command is actually being executed, this client will not respond to 
mouse and keyboard input. Once the command is complete (call to the CM utility func- 
tion ) , input will be accepted as normal. 

* 

The majority of the CM commands return status information via messages to the standard * 
HISDE message client. This includes successfull operation and error messages. Also, * 
certain commands will return additional information which will be displayed in the * 
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output window. This includes the STATUS, LISTDIR, and HOSTDIR commands. When such a 
command executes, the current information in the output window will be removed and the 
new data displayed. This information will remain displayed until another such command 
is used. The output window will not be changed by commands which do not return this 
level of output information. 

To exit from this client, use the exit command in the ID window. As with the clear 
command, it is possible to exit during the data input phase of a command. 


* DESCRIPTION OF MAIN FUNCTION: 

This is the main function of the h_cm_menu client. It is responsibile for initial!- 
zation of the resource database and all widgets which make up the window. Once all 
widgets and their associated callbacks are initialized and realized, this function 
calls the Xtoolkit intrinsic (XtMainLoop) to process all incoming events. This in- 
cludes callbacks for the various command widgets (clear, exit, and CM command) . 

This function initializes a single hierarchy of widgets to present the menu of CM 

* manager functions and input fields. This consists of a main form and four child 
forms, one of which contains an additional form for each input field. The complete 
hierarchy of widgets is summarized below: 


top > form 


+-> form (Client ) 
(ID ) 


+ — > form (CM > -+-> command (submit command) 

(Commands) +-> command (status command) 
+-> command 
+-> command 
+-> command 


-+-> label 

+-> command (clear fields) 
+-> command (exit client) 


(list dir command) 
(info command) 
(return command) 

+-> command (archive command) 
+-> command (cancel command) 

+-> command (download command) 
+-> command (host list command) 


* 

* 

* 

★ 

★ 

* 

* 

★ 

* 

* 

* 

* 

★ 

* 

★ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 

* 

* 

★ 

* 

* 

★ 

* 

★ 

* 

* 


+ — > form (Input ) -+-> form (Job 
(Fields ) 


(Job 

) 

- + -> 

label 



* 

(Number 

) 

+ -> 

text 

(actual 

input) 

* 

★ 

(Job 

) 

- + -> 

label 



★ 

(Flight 

) 

+ -> 

text 

(actual 

input) 

* 

* 

(Job 

) 

- + -> 

label 



* 

(Directry) 

+ -> 

text 

(actual 

input) 

★ 

* 

(List Of 

) 

- + -> 

label 



* 

(Executes) 

+ -> 

text 

(actual 

input) 

* 

* 

(Job 

) 

- + -> 

label 



* 

(Descrip 

> 

+ -> 

text 

(actual 

input) 

* 


+ — > form (Command ) 
(Output ) 


-+-> label 

+-> text (actual input) 


Each of the forms used is offset from other forms to maintain a consistent layout of 
information. The widgets with each form are in turn offset from one another in the 
same way. This insures that homogenous widgets remain in close proximity and in a 
sensible arrangement. 

Once this function calls XtMainLoop, there are a number of callback events which may 
be executed. These functions, the command widgets to which they are tied, and the 
operations they perform are as follows: 
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* 

* 

* 

* 

★ 

* 

* 

* 

★ 

★ 

★ 

* 

* 

* 

★ 

* 

* 

* 

k 

it 

it 

it 

it 

it 

★ 

★ 

it 

it 

it 

it 

it 

k 

★ 

•kit 



function 

cbr_clear 
c b r_cm_t e rmi n a t e 
cbr command 


event 

clear command 
exit command 
any CM command 


operation 

clear all input fields 
terminate h_cm_menu client 
execute requested CM command 


For more information on these callback functions, refer to the code in the appropriate 
source code file. 


SPECIFICATION DOCUMENTS: 


/ h i s de / req/ r equi remen t s 
/hisde/design/design 


EXECUTION SEQUENCE: 
h_cm_menu 

EXTERNAL DATA USED: ( ' I' - Input ' O' - Output 'I/O' - Input /Output ) 
This function initializes all declared widget variables. 

ORIGINAL AUTHOR AND IDENTIFICATION: 

Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 


********** 




♦include <stdio.h> 

♦include <X11/Intrinsic.h> 
♦include <Xll/StringDef s .h> 
♦include <X11/Cardinals ,h> 
♦include <X11/Shell ,h> 
♦include <Xm/MainW.h> 
♦include <Xm/RowColumn.h> 
♦include <Xm/Form.h> 

♦ include <h_cm_jnenu.bit> 
♦include <hisde.h> 

♦include <h_user_inter ,h> 
♦include <h__cm_rnenu . h> 
♦include <cm util.h> 


/* 

* Decl *f e all widgets which will be used by this client. This data is made external 
to allow simple access in callback functions. 

*/ 

Widget top, m_main, widget, 

mbjmain, mp_f ile, mp_edit , mp_cmd, 
f _input , l_job, t_job, 

l_f light, t_f 1 igh t , 
l_exec, t_exec, 
l_dir, t_dir, 
l_desc, t_desc, 
f output , l_output, t_output; 
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* Declare all the callback functions used by this client. 
*/ 

extern XtCallbackProc cbr_cm_terminate ( ) , 

cbr_command ( ) , 

cbr clear () ? 


main ( argc, argv ) 
int argc; 

char **argv; 

( 

/* 

* Initialize the callback lists required for the clear fields, exit client, and CM 

* manager commands functions. These callbacks occur when the user selects one of the 

* associated command widgets. 

*/ 

static XtCallbackRec cb_command[J - { 

{ (XtCallbackProc) cbr_command, (caddr_t) NULL ), 

{ (XtCallbackProc) NULL, (caddr_t) NULL ) 

»; 

static XtCallbackRec cb_cm_terminate [ ] - { 

( (XtCallbackProc) cbr_cm_terminate, (caddr_t)NULL }, 

{ (XtCallbackProc) NULL, (caddr_t)NULL ) 

} ; 

static XtCallbackRec cb_clear[] - { 

{ (XtCallbackProc) cbr_clear, (caddr_t) NULL }, 

( caddr_t ) NULL } 

/* Argument which will be used to initialize 
* the graphic icon for this client . 

*/ 

/* Arguments used to initialize widget resources. 

*/ 


* Initialize the Xtoolkit, parse command line, and return the root widget which will be 

* the parent of the window. Note that this client does not have any application 

* specific resources (NULL and ZERO parameters) . 

*/ 

top - Xtlnitialize ( NAME_SHELL, NAME_APLIC, NULL, ZERO, iargc, argv ); 

* 

* If there were arguments on the command line which could not be parsed, call the 

* function (bad_syntax) to report the error, display the correct syntax, and exit from 

* the client. 

*/ 


{ (XtCallbackProc) NULL, 


} ; 


Arg icon_arg. 


args [ 1 ] ; 






if ( argc > 1 ) 

bad_syntax ( "h_cm_menu" ) ; 


/* 

* Initialize the icon bitmap for this client. 

*/ 

XtSetArg ( icon_arg, XtNiconPixmap, 

XCreateBitmapFromData ( XtDisplay (top) , XtScreen (top) ->root , 
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h_cm_menu_bit s , h_c m_me n u__w i d t h , 



h_cmjnenu_height ) ) ; 


XtSetValues ( top, &icon_arg, ONE ) ; 

/* 

* Create the main window widget and the menu bar which will contain all commanda . 
*/ 


m_main - XmCreateMainWindow ( top, NULL, 0 ) ; 

XtManageChild ( m_main ) ; 

mb_main - XmCreateMenuBar ( m_main, NULL, 0 ); 

XtManageChild ( mb_main ) ; 


/* 

* Create pulldown for file commands. 
*/ 


mp_file * XmCreatePulldownMenu ( mb_main, NULL, 0 ) ; 

create_cascade ( mbjmain, mp_file, LABEL_FILE ) ; 

create_c ommand ( mp_file, LABEL_EXIT, cb_cm_terminate ); 

/* 

* Create pulldown for edit commands . 

*/ 

mp_edit - XmCreatePulldownMenu ( mb_main, NULL, 0 ); 
create^cascade ( mb_main, mp_edit, LABELLED IT ); 

c reat e_command ( mp_edit, LABEL_CLEAR, cb_clear ); 


/* 

* Create pulldown for CM commands . 
*/ 


mp_cmd - XmCreatePulldownMenu ( mb_main, NULL, 0 ) ; 
create_cascade ( NULL, mb_main, mp_cmd, LABE L_COMMAND S ) ; 


cb_command[0] .closure - (caddr_t) SUBMIT; 
create_command ( mp_cmd, LABE L_CMD_SUBMI T , 

cb_command[0] .closure - (caddr_t) STATUS; 
c reate — command ( mp_cmd, LABEL_CMD_STATUS, 

cb_ command [ 0 ] .closure « (caddr_t ) LISTDIR; 
create_command ( mp_cmd, LABEL_CMD_LISTDIR, 

c ^ coinrnanci I^] .closure - (caddr^t) INFORMATION; 
c r ea t e_c ommand ( mp_cmd, LABE L_CMD_ INFO, 
cb_command [ 0 ] .closure - ( caddr_t ) RETURN; 
create_c ommand ( mp_cmd, LAB E L_CMD__RE TURN , 

cb_command[0] .closure - (caddr_t) ARCHIVE; 
create_command ( mp_cmd, LABE L_CMD_ ARC HIVE, 

cb_command[0] .closure - (caddr — t) CANCEL; 
create_c ommand ( mp_cmd, LABE L_CMD_C ANC E L , 
cb_command[0] .closure » { caddr_t ) DOWNLOAD ; 
create^ command ( mp_cmd, LABE L_CMD_DOWNLOAD , 

cb^commandlO] .closure - (caddr_t ) HOSTDIR; 
create_c ommand ( mp_cmd, LABEL_CMD_HOSTDIR, 


cb^command ) ; 
cb_command ) ; 
cb_c ommand ) ; 
cb_command ) ; 
cb_c ommand ) ; 
cb_ command ) ; 
cb_ command ) ; 
cb_c ommand ) ; 
cb_command ) ; 


/* 

* Create the help cascade . 

V 


widget - create_cascade ( mb_main, NULL, LABEL_HELP ); 

XtSetArg ( args [ 0 ], XmNmenuHelpWidget , widget ); 
XtSetValues ( mb_main, args, 1 ) ; 
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* Create the form used for the work area. 

*/ 

f_input - create_form < W_F_INPUT, m_main ); 


! * Initialize the label and text widget for the job control number input field 
* Note this this and all text widgets are editable. 

*/ 


1 job “ create_label ( W_L_INPUT_JOB, 
t job m create_text ( W_T_INPUT_JOB, 
XmAddTabGroup ( t_job ) ; 


f_input , LABEL_JOB ) ; 

f input , Of XmS INGLE LINE EDIT, 1 ) < 


/* 

* initialize the label and text widget for the flight input field. 
*/ 


1 flight - create label < W _L_INPUT_FLIGHT, f_input, LABEL_F L I GHT ) ; 

t ~flight - create_text ( W_T_INPUT_FLIGHT, f_input, 0, XmS I NGLE_L I NE_ED I T , 1 ); 

XmAddTabGroup ( t_f light ) ; 


/* 

* Initialize the label and text widget for the list of executables input 

* field. Note that this text widget includes a vertical scrollbar. 

*/ 

1 exec - create label ( W_L_INPUT_EXEC , f_input, LABEL_EXEC ) ; 

t“exec - create_text ( W_T_INPUT_EXEC, f_input, 1, XmMULTI_LINE_EDIT, 1 ) ; 

XmAddTabGroup ( t_exec ) ; 


* initialize the label and text widget for the source/destination directory 

* field Note that thsi text widget includes a vertical scrollbar. 

*/ 

1 dir - create_label ( W_L_INPUT_DIR, f_input, LABEL_DIR ) ; 

t _dir - create_text ( W_T_INPUT_DIR, f_input, 0, XmSINGLE_LINE_ED IT , 1 ); 

XmAddTabGroup ( t_dir ) ; 


* Initialize the label and text widget for the job description field. 

* Note that this text widget includes a vertical scrollbar. 

*/ 


1 desc - create label ( W_L_INPUT_DESC, f_input, LABELJDESC) ; 

t~desc - create_text ( W_T_INPUT_DESC, f_input, 1, XmNULTI_LINE_EDIT, 1 ) ; 

XmAddTabGroup ( t_desc ) ; 


* Initialize the shell window for the output information area. It includes a label and 

* a text widget . 

*/ 


f output m XmCreateFormDialog ( top, W_F_OUTPUT, NULL, 0 ) ; 

1 output - create_label ( W_L_OUTPUT, f_output, LABEL_OUTPUT) ; 

t output - create_text ( W_T_OUTPUT, f_output, 1, XmMULT I_L INE_ED I T , 0 ) ; 

XtManageChi Id ( f_output ) ; 


/* 

* 

*/ 


Define the areas which constitute the main window widget. 
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XinMainWindowSetAreas ( m_main, mb_main, NULL, NULL, NULL, f input 



/* 

* Realize the top level widget. This causes the main form of this client to be 

* displayed, along with all child widgets. 

*/ 


XtRealizeWidget ( top ) ; 


/* 


* 

* 

*/ 


Call the (set_to_insensitive) function to set all input fields (label and 
text widgets) to their initial insensitive state. In this state, their visual 
orientation is different and no mouse/Jteyboard input is acknowledged. 


aet_to_insensitive ( ) ; 


/* 

* Enter the normal Xtoolkit main loop, which coordinates processing of the various 

* widget events. This loop will terminate normally when the user selects the "Exit" 

* command, which in turn causes the cbr_cm_terminate callback routine to be executed. 

* / 


} 


XtMainLoop ( ) ; 


• « 
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* MODULE NAME AND FUNCTION ( cbr_command ) * 


This callback function is executed whenever the user selects one of the command wid- 
gets used to present the available CM manager functions. This function is set up to 
process all commands. It determines the command which was selected and peforms the 
actions necessary to execute it. 


ggfQj’Q any command is selected* all input fields (form/label/text widgets) are set to 
insensitive state. Once a command is selected* this function will set to sensi- 
tive* all fields which are required or optional for the command. At this point* the 
the user may either enter data and then reselect the same command (which causes the 
command to be executed) * or he may select any other CM manager command (which causes 
the command to be aborted) . This process is allowed by separating the actions taken 

* when the command is first selected and those taken when the command is selected a sec- 

* ond time. 

* 

* When a command is first selected* this only actions taken by this function are to set 

* the appropriate fields to sensitive. 

* 

* When a command is selected a second time (assuming that it is the same command) * all 

* required fields are checked* the input fields are reset to insensitive* the CM manager 

* is called to execute the requested function* and the return data is displayed in the 

* output window (if applicable) . Note that output may also be in the form of messages 

* sent to the HISDE message client. Note also that if the user omits a required piece 

* of data* a message will be output and the command will remain in its entry state (in- 

* put of data) . 

* 

★ 

* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/ requirement s 

★ 

* 

* 


/hisde/design/design 


* 

EXTERNAL DATA 

USED: ('I' - 

Input 

'O' - Output ' 

I/O' - Input /Output ) 



* 

it 

* 

t_Output 

(Widget) 

(I/O) - 

Pointer to the 

text widget used for the output text . 

it 

★ 




It recreated by this function when the 

CM 

manager 

★ 

* 




returns an output buffer. 



* 

it 

★ 

t_ job 

(Widget) 

(I) 

Pointer to the 

text widget containing the 

job data. 

* 

* 




This widget is 

needed to clear the text . 


it 

it 

* 

t_f light 

(Widget) 

(I) 

Pointer to the 

text widget containing 

the 

flight 

it 

* 




data . 




it 

it 

★ 

t_dir 

(Widget) 

(I) 

Pointer to the 

text widget containing 

the 

directory 

it 

★ 




data . 




* 

* 

* 

t_exec 

(Widget) 

(I) 

Pointer to the 

text widget containing 

the 

list of 

* 

★ 




executables . 




* 

* 

★ 

t__desc 

(Widget) 

(I) 

Pointer to the 

text widget containing 

the 

job desc- 

* 

★ 

if 




cription . 




t 

* 

★ 

l_job 

(Widget) 

(I) 

Pointer to the 

label widget containing 

the 

i job data. 

* 

* 




This widget is 

needed to make the field appear 

* 

★ 




insensitive. 




* 

* 

* 

l_f light 

(Widget) 

(I) 

Pointer to the 

label widget containing 

the 

flight 

* 

* 




data . 




* 

★ 

* 

l_dir 

(Widget) 

(I) 

Pointer to the 

label widget containing 

the 

directory 

★ 
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data . 

(Widget) (I) - Pointer to the label widget containing the list of 

executables . 

* 

(Widget) (I) - Pointer to the label widget containing the job desc- * 

cription. * 



* 


* ORIGINAL AUTHOR AND IDENTIFICATION: 


Mark D. Collier 


Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 






♦include <X11/Intrinsic . h> 
♦include <Xll/StringDef s .h> 
♦include <hisde.h> 

♦include <h_user_inter .h> 
♦include <h_cm_menu . h> 
♦include <cm util.h> 


extern Widget 


f _output , t_output , 

t_job, t_exec, t_f light, t__dir, t_desc r 
l_job, l_exec, Inflight, l_dir, l_desc; 


XtCallbackProc cbr_command ( widget, closure, calldata 


Widget widget ; 


caddr_t closure. 


calldata; 


{ 

static int 


in__command. 


command; 


/* Set to the widget which initiated this callback 

* function. 

*/ 

/* Callback specific data. This parameter will be 

* be set to a value which identifies the selected 

* command. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client . This parameter is 

* is not used by this function. 

*/ 

/* This variable indicates the state of the current 

* command. If FALSE, no command is currently ac- 

* tive; if TRUE, a command has been selected and 

* the user is allowed to input data. 

V 

/* When (in^command) is TRUE, this variable will be 

* set to the command selected. It is used to deter- 

* mine if the user selected the same command (exe- 

* cute) or a different command (abort) . 

*/ 


job_num; /* For the SUBMIT command, this variable will be set 

* to the assigned job number. 

*/ 


temp_command, /* Set to the last command selected. It is compared 

* to (command) to determine if the user wants to 

* execute or abort a command. 


register int 



char 
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*/ 

/* Temporary variable used to save the length of 
* certain strings. 

*/ 



*temp_buf fer, 
*temp_job. 


*temp_dir, 

* t emp_f 1 igh t , 
*temp_exec, 
*temp_desc, 
job_number[ 6 


/* Pointer which will be updated by the CM manager 

* function when a status buffer is returned. 

*/ 

/* Temporary buffer for the job number. The normal 

* data is placed in this buffer to allow the CM 

* manager function to update it without adversely 

* affecting the widget. 

*/ 

/* Temporary buffer for the filename. 

*/ 

/* Temporary buffer for the flight. 

*/ 

/* Temporary buffer for the executables. 

*/ 

/* Temporary buffer for the description. 

*/ 

/* String needed to format and display a returned 

* job number. 

*/ 


* If just starting a command (flag in_command is FALSE) , then determine which command 

* was selected and save in the static variable (command) . This value is required to 

* indicate which command was initially selected. Also set the static variable 

* (in command) to TRUE to indicate the state of the command. 

*/ 

if ( in_command " FALSE ) { 

command ■ (int) closure; 
in_command - TRUE; 

* 

* Based on the selected command, set the appropriate input text and label widgets 

* to a sensitive state. This allows the user to enter data into the fields. 

* Also clear any data which is not relevant to the operation. 

*/ 


if ( command ■»■ DOWNLOAD ) { 

XtSetSensitive ( t_f light, TRUE ) ; 
XtSetSensitive ( t_dir, TRUE ) ; 
XtSetSensitive ( t_exec, TRUE ) ; 
XtSetSensitive ( l_f light, TRUE ) ; 
XtSetSensitive ( 1 — dir, TRUE ) ; 

XtSetSensitive ( l_exec, TRUE ) ; 
clear_text_widget ( t_job ) ; 

clear__text_widget ( t_desc ) ; 

} else if ( command " HOSTDIR ) { 

XtSetSensitive ( t_f light, TRUE ) ; 
XtSetSensitive ( Inflight, TRUE ) ; 
clear_text_widget ( t_job ) ; 

clear — text — widget ( t_dir ) ; 

clear_text_widget ( t_desc ) ; 

clear_ text_widget ( t_exec ) ; 

} else if ( command " RETURN ) { 

XtSetSensitive ( t_job, TRUE ) ; 
XtSetSensitive ( t_dir, TRUE ) ; 
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XtSetSensitive ( t_exec, TRUE ) ; 
Xt Set Sensitive ( l_job, TRUE ) ; 
XtSetSensitive ( l_dir, TRUE ) ; 
XtSetSensitive { l_exec, TRUE ) ; 
clear_text__widget ( t_f light ) ; 
clear_text_ widget < t_desc ) ; 


} else if { command — SUBMIT ) { 


XtSetSensitive 

( 

t_f light. 

TRUE 

) ; 

XtSetSensitive 

< 

t_dir, 

TRUE 

) ; 

XtSetSensitive 

( 

t_exec. 

TRUE 

) ; 

XtSetSensitive 

< 

t desc. 

TRUE 

) ; 

XtSetSensitive 

< 

l_f light. 

TRUE 

) ; 

XtSetSensitive 

< 

1_< dir. 

TRUE 

) ; 

XtSetSensitive 

( 

l_exec. 

TRUE 

) ; 

XtSetSensitive 

< 

l_desc, 

TRUE 

) ; 

c 1 e a r_t e x t _ w i dge t 

( t_job 

) ; 



} else { 

XtSetSensitive ( t_job, TRUE ) 
XtSetSensitive ( l_job, TRUE ) 
clear_text_widget ( t_flight ) 

clear_text_widget ( t_dir ) 

clear_text_widget ( t__exec ) 

clear_text_widget ( t_desc ) 

} 


/* 

* Otherwise, we are in the second phase of the command. 
*/ 



} else { 

/* 

* To complete a command, the appropriate command widget must be selected again. 

* Examine the command which was selected, if different, assume that the user 

* wants the command aborted. In this case, set all input fields to the insen- 

* setive state, output a message, and reset the command state (set in command to 

* FALSE) . “ 

*/ 

temp_command - (int) closure; 
if { command ! - temp^command ) ( 

set_to__insensitive ( ) ; 

display_message ( MSG_WARNING, "Command was aborted - make a new selection" ) ; 

in_< command « FALSE; 

return; 

> 

/* 

* Get the data in each of the text widgets. 

*/ 


temp_job 

* get_text_widget 

< 

t_job 

); 

temp_f light 

* get_text_widget 

( 

t_f light 

) ; 

temped ir 

- get_text_widget 

< 

t_dir 

); 

tenp_exec 

“ get_text_widget 

< 

t_exec 

) ; 

temp_desc 

■ get_text_widget 

< 

t_desc 

) ; 


Verify that the user has completed all required input fields. If a required 
field was omitted, output a message and exit from this function. In this case, 
the command will still be in effect. Note that if the LISTDIR command is left 
blank, it is assumed that the user requires status on all active jobs. This 
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requires setting the job number to a constanct recognized by the CM manager. 

For a discussion of the CM commands and the fields which are required for each, 
refer to the header block comment in the main (h_cm_ menu) function. 


if ( command ~ DOWNLOAD ) { 

if < strlen <temp_f light ) — 0 I I strlen (temp_exec) — 0 ) { 

display__message ( MSG^WARNING, 

"Flight and executable fields are required" ) ; 

return; 

} 

} else if { command !- SUBMIT && command !» HOSTDIR ) { 

if { ( strlen (temp_job) — 0 ) II ( ( job_num - atoi (temp_job) ) — 0 ) ) 
if ( command — LISTDIR ) 

job num * LIST ALL PROCESSES; 
else { 

display_message ( MSG_WARNING, 

"The job control number field is required" ) ; 

return; 

} 

} else if ( command “ SUBMIT ) { 

if ( strlen ( temp_flight ) " 0 ) { 

display__message { MSG_WARNING, "The flight number field is required" ) ; 
return; 

} 

} 

Control will reach this point if all data entered by the user is valid. This 
requires that all input fields be set to insensitive to indicate that they may 
no longer be changed. 

set to insensitive ( ) ; 


Insure that the last entry in the list of executables is terminated by a newline. 
This is done to simplify processing by the CM manager function. 


if ( command ■■ SUBMIT | | command RETURN | | command " DOWNLOAD ) 

if ( ( len - strlen ( temp_ exec ) ) && temp_exec [len-1] !- f \n' ) { 

temp_exec [ len] - 9 \n' ; 
temp_exec [++len] - NULL; 

} 


Call the CM manager to execute the requested command with the supplied data. If 
the SUBMIT command was selected, the assigned job number will be returned in the 
(job_num) variable. The (temp_buf fer) variable will be updated to point to the 
output of the command (this pointer will be NULL for commands which do not 
return any output) . Note that if this function returns a non-zero value if 
a fatal error occurred. 


if ( cm_command ( command, &job_num, temp_f light, temp_dir, temp_exec, 
temp_desc, &temp_buf fer ) ~ 0 ) { 


If the command selected was SUBMIT, then the CM manager will have returned 
the number assigned to the submitted job. Take this value, convert to ascii 
and use the user interface library function (update_text_widget ) to place 
the value in the job number text widget (j_job) . 
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if ( command — SUBMIT ) ( 

sprintf < job_number, "%05d", job_num ) ; 
update_text_widget ( t_job, job_number ) ; 


If the command selected was INFORMATION, then the CM manager will have 
returned submit information in the flight, directory, executables, and 
description parameters. Use the data in these parameters to update the 
appropriate text widgets. 


} else if ( command -- INFORMATION ) { 

update_text_widget ( t_f light, temp_f light ) 

update_text_widget ( t_dir, temp_ dir ) 

update_text_widget ( t_exec, temp_exec ) 

update_text_widget ( t_desc, texnp_desc ) 

} 


If the command returned a status buffer of information (temp_buf fer not NULL) , 
update text widget. 


if ( temp_buffer !« NULL ) { 

update_text_widget < t_ output, temp_buffer ) ; 
free ( temp_buf fer ) ; 

} 

/* 

* Otherwise (cm_command) call failed, so output a message (in addition to detailed 

* message by CM. 

*/ 

) else 

display_mes3age ( MSG_ERROR, "CM command failed - see advisory window" ) ; 

/* 

* Set the state flag to indicate that the command is complete. 

*/ 

in_command - FALSE; 

/* 

* Free all memory allocated for text strings . 

*/ 

XtFree ( temp_job ) ; 

XtFree ( temp_f light ) ; 

XtFree ( temp_dir ) ; 

XtFree ( temp_exec ) ; 

XtFree ( temp__desc ) ; 

} /* Of command state if */ 




) 
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* 


/a************************************** 

* MODULE NAME AND FUNCTION ( set_to_insensitive ) 

* 

* This function is used to set each of the data input widgets to an insensitive state. * 

* Once in this state, the borders and labels of the widget are modified so that they are * 

* less vivid (every other pixel is turned off) . In addxtion, insensitive widgets do not 

* recognize mouse pointer events. This prevents the user from modifying any data within * 

a. - i ~ This makes it easy for the user to identify data which is not * 


The text containing the destination directory. 

The text widget containing the list of executable files. 


* a widget in this state. 

* required for a given function. 

* 

* 

* SPECIFICATION DOCUMENTS: 

★ 

* /hisde/req/ requirements 

* /hisde/design/design 

* 

★ 

* EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input/Output) 

* 

* 
it 
it 
it 
it 
it 
* 

* 

* 

★ 

* 

* 

* 

★ 

* 

* 

* 

★ 

* 

★ 

★ 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute * 

★★★★★★★★★★★★★★a******************* ********************************************** *********/ 


t_job 

(Widget) 

(I) 

t_f light 

(Widget) 

(I) 

t_dir 

(Widget) 

(I) 

t_exec 

(Widget) 

(I) 

t_desc 

(Widget) 

(I) 

l_job 

(Widget) 

(I) 

Inflight 

(Widget) 

(I) 

l_dir 

(Widget) 

(I) 

l_exec 

(Widget) 

(I) 

1 desc 

(Widget) 

(I) 


The label widget containing the job description. 


it 

* 

* 

it 

it 

it 

* 

* 

* 

it 

it 

it 

it 

it 

it 

it 

it 

it 

★ 

★ 

* 

* 

* 

★ 

* 

* 

* 


# include <X11/Intrinsic .h> 


extern Widget t_job f 

t_f light/ 
t_dir f 
t_exec/ 
t desc, 


l_job r 
l_f light, 
l_dir r 
l_exec/ 

1 desc; 


int set_to_insensitive ( ) 

{ 

/* 

* Use the Xtoolkit intrinsic XtSetSensitive function to set each of the text and label 

* widgets to the insensitive state. 




Xt Set Sensitive 

< 

t 

Job, 

FALSE 

) ; 

Xt Set Sensitive 

< 

t* 

JE light , 

FALSE 

) ; 

Xt Set Sensitive 

< 

t^ 

_dir, 

FALSE 

) ; 

Xt Set Sensitive 

< 

t] 

exec, 

FALSE 

) ; 

Xt Set Sensitive 

< 

t] 

_desc, 

FALSE 

) ; 

Xt Set Sensitive 

< 

1 

Job, 

FALSE 

) ; 

Xt Set Sensitive 

< 

l" 

_f light , 

FALSE 

) ; 

Xt Set Sens i t i ve 

< 

1 

_dir. 

FALSE 

) ; 

Xt Set Sensitive 

( 

1 

exec. 

FALSE 

) ; 

Xt Set Sensitive 

< 

1 

desc, 

FALSE 

) ; 


} 
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* MODULE NAME AND FUNCTION ( cbr_ clear ) 



* This callback function is called when the user selects the clear command. It simply 

* clears all data from each of the input fields. This provides a conviement means of 

* initializing the fields when the user needs to enter data which is radically different * 

* from that currently displayed. ^ 

* 


* SPECIFICATION DOCUMENTS 

* 

* 

★ 

★ 

★ 


/hisde / req/ requirements 
/hisde/design/design 


★ 

EXTERNAL DATA 

USED: ('I' - 

Input 'O' - Output 

'I/O' - Input/Output) 



* 

* 

★ 

★ 

t_job 

(Widget) 

(I) - 

Pointer to 

the 

text 

widget 

containing 

the 

job number. 

* 

* 

★ 

★ 

t_f light 

(Widget) 

(I) " 

Pointer to 

the 

text 

widget 

containing the 

flight. 

★ 

♦ 

* 

* 

t_dir 

(Widget) 

(I) - 

Pointer to 

the 

text 

widget 

containing the 

destination 

* 

it 



directory . 







* 

* 

★ 

* 

t_exec 

(Widget) 

(I) " 

Pointer to 

the 

text 

widget 

containing 

the 

list of 

* 

* 



executable 

files . 





★ 

it 

★ 

* 

t_desc 

(Widget) 

(I) - 

Pointer to 

the 

text 

widget 

containing 

the 

job des- 

it 

★ 



cription . 







it 


★ 

★ 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Mark D. Collier - Software Engineering Section 

★ Data System Science and Technology Department 

* Automation and Data Systems Division 

★ Southwest Research Institute 

********** ***************************** ********** ★**★***/ 


♦include <X11 / Intrinsic . h> 
♦include <Xll/StringDef s .h> 
♦include <h user inter. h> 


extern Widget t_ job, 

t_f light, 
t_dir, 
t_exec, 
t desc; 


XtCallbackProc cbr_clear ( widget, closure, calldata ) 

Widget widget; /* Set to the widget which initiated this callback 

* function. 

*/ 

caddr_t closure, /* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client . This parameter is 

* is not used by this function. 


calldata; 
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< 

/* 

* Use the HISDE user interface library function (clear_text_widget) to clear each 

* the text input widgets. 

*/ 


clear_ 

_text_widget 

< 

t_ job 

) ; 

clear_ 

_text_widget 

< 

t_ flight 

) ; 

clear_ 

_text_widget 

( 

t_dir 

) ; 

clear_ 

_text_widget 

< 

t_exec 

) ? 

clear_ 

_text_widget 

< 

t_deac 

) ; 



> 
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/************************************************************************************** 

* MODULE NAME AND FUNCTION ( cbr_cm_terminate ) 

* 

* This callback function is called when the user selects the exit command, widget. This 

* function destroys the top level widget, which causes the entire hierarchy of widgets 

* to be destroyed. 

* 

★ 

* SPECIFICATION DOCUMENTS: 

★ 

* /hisde/req/ requirements 

* /hisde /design/design 

* 

★ 

★ EXTERNAL DATA USED: ('I' - Input ' 0' - Output 9 I /O' - Input /Output ) 

* 

* top (Widget) (I) - Pointer to the root widget of the window. 

★ 

* 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 

★★★a*********************************************************************************** 


★ * * 
* 
★ 
* 
* 
* 
* 
* 
* 
* 
* 
★ 
* 
* 
* 
* 
★ 
* 
* 

* 

* 

* 

it 

* 

* ★ j 


♦include <X11/Intrinsic .h> 
♦include <Xll/StringDef s . h> 


extern Widget top; 


XtCallbackProc cbr_cm_terminate ( widget, closure, calldata ) 

Widget widget; /* Set to the widget which initiated this callback 

* function. 

*/ 


caddr t closure. 


calldata; 


{ 

XEvent event ; 


/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 

/* Event structure needed to make the calls to the 

* XtNextEvent and XtDispatchEvent functions . 

*/ 


/* 

★ Destroy the root application shell widget and thereby, all subordinate widgets which 

* make up the window and any popup windows used for menus. 

*/ 


XtDestroyWidget { top ) ; 


/* 

* Determine if any events have been queued. These will normally be events which 

* cause the widgets destroy callback to be executed. Waiting and then processing 

* the events insures that all data structures initialized by the widgets are 





* properly deallocated. 
*/ 
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XtNextEvent ( &event ) ; 

XtDispatchEvent ( fievent ) ; 


/* 

* Close the display to deallocate any connections set up by X Windows. 

* exit from the client. 

*/ 


} 


XCloseDisplay ( XtDisplay ( top ) 
exit ( 0 ) ; 


) ; 



Next 
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I########################################*###*#######*###*##*****###********************** 

# Makefile for HISDE user interface client (h_cmd) . * 

I################*##########****##*####*##****#**************************** ######## ####### 


# 

# Define the target which this file is to create. 

* 

TARGET - h_cmd 


# initialize include and library search paths to include current directory and the 

# HISDE directories. Note that the library path also includes the user interface 

# library. 

# 

BINDIR “ /hisde/bin 

INCDIR =* /hisde/src/include 

INCDIRS - -I. -1$ (INCDIR) 

* 

# Define the libraries to search. This includes the HISDE library, the local user 

# interface library, and all required X libraries. 

# 

LIBRARIES “ -lui -lhisde -lXm -lXt -1X11 


* 

# Define the compiler and linker flags. 

# 

CFLAGS - -O $ (INCDIRS) 

LDFLAGS - -O $ (EXTRAFLAGS) 


» 

# Define all objects which make up this target. 

* 

OBJS =\ 

cb r_cmd_t rm. o\ 
cbr_command . o \ 
load_cmds . o\ 
save_cmds . o\ 
get_home_dir . o\ 
h_cmd . o 

# 

# Define all header files required. 

* 

HDRS -\ 

$ (INCDIR) /h_cmd.h\ 

$ (INCDIR) /h_cmd.bit\ 

$ (INCDIR) /h_user_inter.h\ 

$ (INCDIR) /hisde.h 

# 

# Make the target . 

* 

all: $ (TARGET) 

$ (TARGET): $ (OBJS) 

$(CC) -o $0 $ (OBJS) $ (LIBRARIES) $ (LDFLAGS) 
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strip $ (TARGET) 

mv $ (TARGET) $ (BINDIR) 

$ (OBJS) : S(HDRS) 
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/***************************************************************************************** 

* MODULE NAME AND FUNCTION ( cbr_command ) ^ 

* This callback function is activated when the user wants to execute a command. It gets * 

* the currently highlighted text from the command list text widget, determines how it is * 

* to be executed, and then actually executes the command. ^ 

(closure) 
These 

* widgets and the manner in which they cause the command to be executed are as follows: 

* 

NO WIN/NO ICON - This widget is used to execute a command which does not require 
initialization of a controlling window (X and HISDE clients) . 


* Note that this function is called for each of the four command widgets. The 

* parameter will be set to a value which indicates which command was selected. 


WINDOW/NO ICON - This widget is used to execute a command which requires initial- 
ization of a controlling window (normal UNIX commands) . It runs 
an xterm window with a Bourne shell, which in turn executes the 
users command. Note that when the command is complete, the user 
is required to press the RETURN key to cause the window to be 
terminated. This is necessary, as many commands complete as 
soon as they finish output of data. 


★ 
it 
* 

* 

* 

★ 

★ 

* 

* 

* 

* 

* 

* 

★ 

★ 
it 
* 

* 

★ 

* Note that this function will not execute a command which spans multiple lines 

* will be reported to the root or xterm window. 


NO WIN/ ICON 


WINDOW/ ICON 


- This widget is used to execute a command which does not require 
initialization of a controlling window. However, note that it 
executes the command in an iconic state . 

- This widget is used to execute a command which requires initial- 
ization of a controlling window. However, note that it executes 
the command in an iconic state. 


★ 

★ 

★ 

★ 

★ 

* 

* 

* 

★ 

it 

it 

★ 

* 

★ 

★ 

* 

* 

* 


SPECIFICATION DOCUMENTS: 

/hisde/req/ requirement s 
/hisde /design /design 


EXTERNAL DATA USED: ('I' - Input ' O' - Output 'I/O' - Input /Output ) 


t list 


(char []) (I) - Widget containing the command list. This variable 

is required in order to determine which command was 
highlighted by the user. 


ORIGINAL AUTHOR AND IDENTIFICATION: 

Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 


* 

* 

it 

it 

* 

it 

it 

* 

* 

* 

it 

* 

★ 

★ 

* 

* 

★ 

★ 

* 

* 

it 

* 

* 


Errors 


t 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 




♦include <X11/Intrinsic .h> 
♦include <string.h> 
♦include <hisde.h> 

♦include <h_user_inter ,h> 
♦include <h cmd.h> 


♦define AMPERSAND 




extern Widget t_list; 
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XtCallbackProc cbr_command ( widget, closure, calldata ) 

Widget widget; /* Set to the widget which initiated this callback 

* function. 

*/ 


caddr t closure. 


calldata; 


{ 

register char *ptr; 


/* Set to a value which indicates whether the command 

* is to be executed in a window and/or initialized 

* as an icon. It will be one of the following 

* values : 

* 

* NOWIN_NOICON - No window and no icon 

* WIN__NOICON - Window and no icon 

* NOWIN_ICON - No window and icon 

* WINDOW^ ICON - Window and icon 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 

/* Temporary pointer used to scan the command (cmd) 

* for an ampersand. 

*/ 


char *cmd, /* Set to the command which is highlighted by the 

* user. It must be formatted before actually 

* used. 

*/ 

command [ FMT__SIZE + 1 ];/* Set to the final formatted command which will 

* actually be executed. 

*/ 


/* 

* Get the currently highlighted text. 
*/ 


cmd - get_text_sel_widget ( t_list ) ; 

/* 

* If a command was not specified (no highlighted text), output a warning message and 

* return. 

*/ 


if ( cmd — NULL ) { 

display_message ( MSG__WARNING, 

”No command specified - Highlight the desired command" ) ; 

return; 

) 


/* 

Determine if the command contains a newline (multiple lines) . If so, output a warning 
* and return. 

*/ 


if ( strchr ( cmd, NEWLINE ) | | strlen ( cmd ) > CMD_SIZE ) { 

display_message ( MSG_WARNING, 

"Command contains a newline or command is too long" ) ; 

return; 

} 





./h_cmd/cbr_command.c 


/* 

* If the command includes an ampersand ('&'), remove it, as all commands are auto- 

* matically run in the background. 

*/ 

if ( ptr - strchr ( cmd, AMPERSAND ) ) 

*ptr - 9 ' ; 


* Based on the command widget selected by the user, initialize the final command. 

*/ 

if ( (int) closure — NOWIN_NOICON ) 

sprintf ( command, FMT_CMD , cmd ) ; 

else if ( (int) closure — WIN_NOICON ) 

sprintf ( command, FMT__CMD_W, cmd ) ; 

else if ( (int) closure — NOWIN_ICON ) 

sprintf ( command, FMT_CMD_I, cmd ) / 

else if ( (int) closure — WIN_ICON ) 

sprintf ( command, FMT_CMD_W_I , cmd ) ; 

/* 

* Actually execute the command. If an error occurs, output a warning to the system 

* message client. 

V 

if ( system ( command ) ) 

display_message ( MSG_WARNING, "Could not execute the specified command" ) ; 

) 
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* MODULE NAME AND FUNCTION: ( h_cmd ) 

★ 

* This HISDE client provides a means by which users can execute normal UNIX commands. 

* Xt is intended to provide a reasonable alternative to the UNIX shell. While at the 

* current time it does not provide any type of command checking, it would be very easy 

* to add. While this client is not intended to replace the UNIX shell, it does provide 

* a reasonable command interface in an environment where UNIX commands are required, but 

* not frequently used. 


* When this client executes, it first examines the user's home directory for a .history 

* file. If found, the file will be opened and all commands read. These commands will 

* then be displayed in a large text widget which dominates the window presented by this 

* client. This widget (which contains a scrollbar), allows the user to add, change, 

* delete, and duplicate commands. The user may of course also execute a command, which 

* is done by selecting (with the mouse cursor) the command to be executed. Once the 

* command is selected (highlighted) , the user must select the manner in which the com- 

* mand is executed. This will be via one of the four command widgets located beneath 

* the command list text widget . The four widgets and the manner in which they execute 

* commands is as follows : 

* 

* NO WIN/NO ICON - This widget is used to execute a command which does not require 

★ initialization of a controlling window (X and HISDE clients) . 


★ 

* 

★ 

★ 

* 

it 


it 

★ 

it 

it 

It 

it 

it 

it 


NO WIN/ ICON 


WINDOW/ ICON 


WINDOW/NO ICON - This widget is used to execute a command which requires initial- * 
ization of a controlling window (normal UNIX commands) . It runs * 
an xterm window with a Bourne shell, which in turn executes the * 
users command. Note that when the command is complete, the user * 
is required to press the RETURN key to cause the window to be * 
terminated. This is necessary, as many commands complete as 
soon as they finish output of data. 


This widget is used to execute a command which does not require * 
initialization of a controlling window. However, note that it * 
executes the command in an iconic state. * 

* 

This widget is used to execute a command which requires initial- * 
ization of a controlling window. However, note that it executes * 
the command in an iconic state. * 

* 


* Note that irregardless of the which command widget is used, the command will be exe- 

* cuted without wait. It will run independently from this client. This allows the user 

* to execute any number of commands from this client. Note also that all commands are 

* executed via the 'system' function call. Therefore, all features of the Bourne shell 

* will be available. 

* 

* Note that a command which is iconified executes as normal, but does not perform any 

* input or output. This allows icons to be created for background processes which do 

* not communicate with the user, but still execute. 

* 

* Note that a major advantage of this client is that it maintains a history of commands 

* in the same way the ' C' shell does. It also allows users to interactively modify and 

* execute previously entered commands. This compensates for the loss of the history (!) 

* function of the ' C' shell. This assumes of course that the user is not allowed to use 

* the 'C' shell. 

it 

* To exit from this client, the user need simply select the 'exit' command widget. This 

* causes the contents of the command list text widget to be saved to the user's history 

* file. Once this is complete, the client will terminate. 


* DESCRIPTION OF MAIN FUNCTION: 


This is the main function of the h_ cmd client. It is responsibile for initialization 


./h_cmd/h_cmd.c 


of the resource database and all widgets which make up the client window, 
widgets and their associated callbacks are initialized and realized, t s 
calls the Xtoolkit intrinsic (XtMainLoop) to process all incoming events. 



Once all 
function 


The window presented by this client consists of a hierarchy of widgets. Essentially, 
it consists of a main form with several child forms, each of which present one major 
function. Each child form in turn controls several widgets. The full hierarchy of 
widgets is summarized below: 


top 


> form — + — > form (Client ) 
| (ID ) 


— + — > label 

+ — > command (exit client) 


+ — > form 


I 

+ — > form 


(Command ) 
(List ) 

(Execute ) 
(Command ) 


— + — > text (actual command list data) 


— + — > command 
+ — > command 
+ — > command 
+ — > command 


(No Win/No Icon) 
(Window/No Icon) 
(No Win/Icon ) 
(Window/ Icon ) 


Each of the forms used is offset from other forms to maintain a consistent layout of 
information. The widgets with each form are in turn offset from one another in the 
same way. This insures that homogenous widgets remain in close proximity and in a 
sensible arrangement. 


Once this function calls XtMainLoop, there are a number of callback events which may 
be executed. These functions, the command widgets to which they are tied, and the 
operations they perform are as follows: 

function event operation 

cbr_cmd_terminate exit terminate h_cmd client 

cbr command execute command execute a command 1 of 4 ways 

For more information on these callback functions, refer to the appropriate source 
code file. 


SPECIFICATION DOCUMENTS: 

/hisde/req/ requirements 
/hisde/design/design 


EXECUTION SEQUENCE: 
h cmd 


FILES USED AND APPLICATION DEFINED FORMATS: 

Command History File - -/.history 

A command history file is the normal history file maintaine by the UNIX 'C' 
shell. It is always found in the user's home directory and consistes of an arbi- 
trary number of logical lines (strings terminated by newlines) . 


ORIGINAL AUTHOR AND IDENTIFICATION: 

Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 
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# include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 


<stdio .h> 
<X11/Intrinsic .h> 
<Xll/StringDef s . h> 
<X11/Cardinal3 . h> 
<X11/Shell.h> 
<Xm/MainW.h> 
<Xm/RowColumn . h> 
<h_cmd.bit> 
<hisde.h> 
<h_user_inter . h> 

<h cmd . h> 


/* 

* Define the strings to contain the command history filename. 
*/ 


char file [ SIZE_FILENAME + 1 ]; 

/* 

* Declare all widgets which will be used by this client. Again, this data is made 

* external to allow simple access in callback function. 

*/ 

Widget top, widget, 

mjmain, mb_main, f_main, mp_j£ile, mp_run, 
f_list, t_Iiat; 

/* 

* Declare all callback functions used by this client. 

*/ 

extern XtCallbackProc cbr_cmd_terminate ( ) , 

cbr command () ; 


main ( argc, argv ) 
int argc; 

char **argv; 

{ 

/* 

* Initialize the callback list required for the routine which terminates this client. 

* This callback occurs when the user selects the "exit" command. 

V 


static XtCallbackRec cb_terminate [] « { 

{ (XtCallbackProc) cbr_cmd_terminate, (caddr_t ) NULL }, 
( (XtCallbackProc) NULL, (caddr_t ) NULL } 

} ; 


/* 

* Initialize the callback list required for the function which executes a command. 

* For each command widget, the appropriate value will be set for the (closure) 

* member . 

V 


static XtCallbackRec cb_command[] « { 

{ (XtCallbackProc) cbr_command, ( caddr_t ) NULL ), 
{ (XtCallbackProc) NULL, (caddr_t ) NULL } 

); 





Arg icon_arg. 


args [ 1 ] ; 
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/* Argument used to initialize the graphic icon 
* for this client. 

*/ . 

/* Argument list used to initialize widgets. 

*/ 



initialize the Xtoolkit, parse command line, and return the root widget which will be 
the parent of the main window. 


top - Xtlnitialize ( NAME_SHELL, NAME_APLIC, NULL, ZERO, Sargc, argv ) ; 


If there were arguments on the command line which could not be parsed, 
function (bad_syntax) to report the error, display the correct syntax, 

the client . 


call the 
and exit from 


if ( argc > 1 ) 

bad — syntax ( "h_cmd" ) ; 


Initialize the icon bitmap for this client . 


Xt Set Arg ( icon arg, XtNiconPixmap, 

XCreateBitmapFromData ( XtDisplay (top) , XtScreen (top) ->root, 

h cmd bits, h_cmd_width, h_cmd_height ) ) ) 

XtSetValues ( top, &icon_arg, ONE ) ; 

Create the main window widget and the menu bar which will contain all commands. 

m_main - XmCreateMainWindow ( top, NULL, 0 ); 

XtManageChild ( mjmain ) ; 

mb_main - XmCreateMenuBar ( m_main, NULL, 0 ); 

XtManageChild ( mb_main ) ; 


Create pulldown for file commands. 


m p_file - xmCreatePulldownMenu ( mb_main, NULL, 0 ) ; 

create cascade ( mb_main, mp_file, LABEL_FILE ): 

create - command ( — , mp_file, LABEL_EXIT, cb_terminate ); 


Create pulldown for run commands . 


mp r un - XmCreatePulldownMenu ( mb_main, nn , NULL, 0 ) ; 
create_cascade ( NULL, mb_main, mp_run f LABEL_RUN ) ; 

cb command [0] .closure - (caddr_t) NOWIN_NOICON; 
create_command ( mp_run f LABEL_CMD_1, cb — command ) , 

cb command [0] .closure • (caddr_t) WIN_NOICON; 
create_command { mp^run, LABEL_CMD_2 , cb_command ) ; 

cb_command[0] .closure - (caddr_ t) NOWIN_ICON; 

create_command ( mp__run, LABEL_CMD 3 , cb_command ) , 

cb command [0] .closure - <caddr_t) WIN — ICON; 



t* n 



create_command { mp_run. 


/* 

* Create the help cascade. 
*/ 
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LABEL_CMD_4, cb_command ) ; 


widget - create_cascade ( mb_main, NULL, LABEL_HELP ) ; 
XtSetArg ( arga [ 0 ], XmNmenuHelpWidget, widget ); 
XtSetValuea ( mb_main, arga, 1 ) ; 


/* 

* Create the form which goea in the main window. 
*/ 


/* 

* 

*/ 


/* 

* 

*/ 



f_list - create_form ( W_F_LIST_M, m_main ) ; 

Initialize the text widget used for the main edit area. 

t_list - create_text ( W_T_LIST_M, f_list, 1, XmMULTI_LINE_EDIT, 1 ); 

Define the areas which constitute the main window widget. 

XmMainWindowSetAreas ( m_main, mb_main, NULL, NULL, NULL, f list ) ; 

Realize the top level widget. This causes the main form of this client to be 
displayed. 


XtRealizeWidget ( top ) ; 


/* 

* Load in all commands from the user's 

* that it is not an error if this file 
*/ 


command history (-/.history) file. Note 
does not as yet exit . 


load^commands ( ) ; 

/* 

* Enter the normal Xtoolkit main loop, which coordinates processing of the various 
widget events. This loop will terminate normally when the user selects 'Exit' 

* command, which in turn causes the cbr_cmd_terminate callback routine to be 

* executed. 

*/ 


} 


XtMainLoop ( ) ; 
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/***************************************************************************************** 

* MODULE NAME AND FUNCTION ( save_commands ) * 

* This function is called when the user exits from the client. It simply saves the new * 

* list of commands to the command history file in the * j ho ^^ irectory ' Note that * 

★ 
* 
* 
* 
* 
* 
* 


* list of commands to tne connnduu ■ ~ 

★ this will take place even if a history file does not already exit. 


★ 

★ 


* SPECIFICATION DOCUMENTS: 


/hisde / req/ requirements 
/hisde/design/design 


* EXTERNAL DATA USED: ('I' - Input r O' - Output r I/O' “ Input/Output ) 

file ( char [ ] ) (I) - String set to the command history filename. 

(Widget) (I) - Text widget to be updated with loaded commands. 


t list 


* 

* 

* 

★ 

* 

* 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* 

★ 


Automation and Data Systems Division 
Southwest Research Institute 

★★★★★★A******’****************************************************************************/ 


♦include <stdio.h> 

♦include <X11/Intrinsic .h> 
♦include <hisde.h> 

♦include <h_user_inter . h> 
♦include <h cmd.h> 


extern char file[ ]; 
extern Widget t__list; 


int save commands ( ) 


{ 

FILE 


*fp; 


register char *p; 



/* This function saves all commands in the current 

* list of commands to the user's command history 

* (-/.history) file. It will return one of the 

* following values: 

* 

* ( 0) - Successful operation 

* (-1) - Error occurred. 

*/ 

/* File pointer used to open and access the 

* user's history file. 

*/ 

/* Pointer used to step through the command list 

* in order to write it out. 

*/ 


Open the command history file, 
the system message client. 


If this fails, output an warning message to 
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if ( ( fp - fopen ( file, "w" ) ) — NULL ) { 

display_mes3age ( MSG_WARNING, "Could not open the command history file to save 

/ 

return ( -1 ) ; 

} 

/* 

* Write all data to the file. 

*/ 



p - get_text_widget { t_list ) ; 
while ( *p ) 

putc ( *p++, fp ) ; 


/* 

* Close the history file. If an error occurs, output an error to the system message 

* client . 

*/ 


if ( f close ( fp ) !* 0 ) { 

display_message ( MSG_ERROR, M Could not close the command history file" ) * 
return ( -1 ) ; 1 ' ' 

} else 

return { 0 ) ; 


} 
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********^******-r-r** 1 <»**************^*** 1 ********’ ,t *»*** ,,r *** -r ************************* 

* MODULE NAME AND FUNCTION: ( get_home_dir ) * 

★ 

* This function is called to return the home directory of the current user. It examines 

* the /etc/passwd file (via a UNIX function) to get the home directory and then copies * 

* the data into a passed string buffer. 


* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/ requirements 

* /hisde/design/design 


* ORIGINAL AUTHOR AND IDENTIFICATION: * 

★ 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department * 

* Automation and Data Systems Division * 

* Southwest Research Institute * 

A****************************************************************************************/ 


♦include <stdio.h> 
♦include <pwd.h> 
♦include <hisde.h> 


int get_home_dir ( path ) 


char *path; 


{ 

struct passwd *pwd_ptr; 


/* This function provides the user's home directory. 

* It returns one of the following values: 

★ 

* ( 0) - Successful operation 

* (-1) - Error occurred. 

*/ 

/★ Pointer to the string to be updated with the user's 

* home directory. 

*/ 


/* Set to point to the /etc/passwd entry for the 

* current user. The home directory is then taken 

* from this structure. 

*/ 


extern struct passwd 

*getpwnam(); /* Function used to get the current users /etc/passwd 
* entry. 

*/ 


* Use the (getpwnam) call to obtain the /etc/passwd entry for the current user. This 

* function returns a pointer to a structure containing this data. If a NULL pointer 

* is returned, output an error to the system message client and return. 

* Otherwise (success), copy the user's home directory into the provided parameter and 

* return. 

*/ 


if { ( pwd_jptr - getpwnam ( cuserid (NULL) ) ) ” NULL ) { 

display_message ( MSG__ERROR, "Could not determine user's home directory" ); 
return ( -1 ) ; 

) else { 

strcpy ( path, pwd_jDtr->pw_dir ) ; 
return ( 0 ) ; 


} 
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/i,********** ************************* ********* *********************** ************* ******* 

* MODULE NAME AND FUNCTION ( load_commands ) 

★ 

★ function is called to load all commands from the current user 3 "/ .history file 

* into the external variable (command_li3t) . This data will later be displayed in the 

* clients main text widget . 

★ 

★ 

* SPECIFICATION DOCUMENTS : 

* 

* /hisde/req/ requirements 

* /hisde/design/design 

* 

★ 

* EXTERNAL DATA USED: (' I ' - Input '0' - Output 'I /O' - Input /Output ) 

file 


{char[]) (I/O) - String updated to contain the command history file- 
name . 

(Widget) (I) - Text widget to be updated with loaded commands. 


★ 

* 

* 

★ 

* t_list 

* 

* 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

★ Mark D. Collier - Software Engineering Section 

★ Data System Science and Technology Department 

★ Automation and Data Systems Division 

★ Southwest Research Institute 

★★★A************************************************************************************ 


♦include <stdio.h> 

♦include <X11/Intrinsic .h> 
♦include <hisde.h> 

♦include <h cmd.h> 


extern char file( ]; 
extern Widget t_list; 


int load commands ( ) 


( 

FILE 


★ 


f re- 


register int i - 0, 


ptr - 0, 


c; 


/* This function loads commands from the user's 

* -/.history file and places them into the external 

* variable (command_list ) . It will return one of 

* the following values: 

* 

* ( 0) - Successful operation 

* (-1) - Error occurred. 

*/ 

/* File pointer used to open and access the user's 

* history file. 

*/ 

/* Pointer used to maintain position in the (string) 

* buffer when initializing command list. 

*/ 

/* Pointer used to maintain position in the command 

* list string in the text widget as this data is 

* being initialized. 

*/ 

/* Used to contain last character read (for EOF 

* checking) . 
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*/ 

char string [ 101 ]; /* Buffer used to read in the command list data 

* {100 bytes at a time) . 

*/ 

/* 

* Use the user-defined function (get_home_dir) to update (file) with the name of the 

* command history file to load. Next append the name of the standard UNIX command 

* history filename (with leading slash) . 

*/ 




get_home_dir ( file ) ; 

Strcat ( file, F I LENAME__H I S TORY ) ; 

/* 

* Open the command history file. If this fails, output an information message to 

* the system message client. Note that it is not an error if such a file does not 

* exist . 

*/ 

return ( load_text_widget ( file, t_list, 0 ) ) ; 
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/7T7TTT*********************************************************************************** 

* MODULE NAME AND FUNCTION ( cbr_crnd_terminate ) * 

* This callback function is activated when the user selects the exit command widget. It * 

* is responsible for normal termination of the h_cmd client. It simply destroys the top * 

* level widget, which in turn causes all subordinate widgets to be destroyed. * 


/hisde/req/ requirements 
/hisde/design/design 


* SPECIFICATION DOCUMENTS: 

★ 

★ 

★ 

★ 

★ 

* EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input/Output ) 

* 

* top (Widget) (I) - Pointer to the root widget of the main window. 

* 

★ 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Mark D. Collier - Software Engineering Section 

★ Data System Science and Technology Department 

★ Automation and Data Systems Division 

* Southwest Research Institute 

★a****************************************************************************** 


* 

* 

* 

+ 

* 

* 

* 

* 

* 

* 

* 

* 

+ 

* 

* 

* 

* 


*★**★★*** i 


♦include <X11/Intrinsic .h> 


extern Widget top; 


XtCallbackProc cbr_cmd_terminate ( widget, closure, calldata ) 


Widget widget ; 


/* Set to the widget which initiated this callback 
* function. 

*/ 


caddr t closure. 


calldata; 


{ 

XEvent event ; 


/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 

/* Event structure needed to make the calls to the 

* XtNextEvent and XtDispatchEvent functions. 

*/ 


* Save all commands to the user's command history file. This will allow the commands 

* to be used next time the user logs in. 

*/ 


save commands ( ) ; 


* Destroy the root application shell widget and thereby, all subordinate widgets which 

* make up the window . 

*/ 




XtDestroyWidget ( top ) ; 
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/* 

* Determine if any events have been queued. These will normally be events which 

* cause the widgets destroy callback to be executed. Waiting and then processing 

* the events insures that all data structures initialized by the widgets are 

* properly deallocated. 

*/ 


XtNextEvent { &event ) ; 

XtDispatchEvent ( &event ) ; 


/* 

* Close the display to deallocate any connections set up by X Windows. Next 

* exit from the client. 

*/ 


} 


XCloseDisplay ( XtDisplay ( top ) ) ; 
exit ( 0 ) ; 
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#####################*###*»*#****** ############# * ######################################## ! 

jl MaVofUo f nr htsde user interface client (h info) . 

If I################################### #######################**#*#####*#*#*#************** 


# Define the target which this file is to create. 

# 

TARGET * h_info 

£ 

# Initialize include and library search paths to include current directory and the 

# HISDE directories. Note that the library path also includes the user interface 

# library. 

# 

BINDIR * /hisde/bin 

INCDIR m /hisde/src/ include 

INCDIRS - -I. -1$ (INCDIR) 


# Define the libraries to search. This includes the HISDE library, the local user 

# interface library, and all required X libraries. 

# 

LIBRARIES * -lui -lhisde -lXm -lXt -1X11 


# 

# Define the compiler and linker flags. 

# 

CFLAGS - -0 $ (INCDIRS) 

LD FLAGS - -0 $ (EXTRAFLAGS ) 


# 

# Define all objects which make up this target. 

# 

OBJS -\ 

cbr__inf o_t rm. o\ 
cbr_select .o\ 
tmr_mon_upd . o\ 
h inf o.o 


# 

# Define all header files required. 

# 


hdrs *■ \ 

$ ( INCDIR) /h_info . h\ 

$ (INCDIR) /h_info.bit\ 

$ (INCDIR) /h_user_inter .h\ 
$ (INCDIR) /hisde.h 


# 

# Make the target. 

* 

all: $ (TARGET) 

$ (TARGET): $ (OBJS) 

$(CC) -o $0 $ (OBJS) $ (LIBRARIES) $ (LDFLAGS) 

strip $ (TARGET) 

mv $ (TARGET) $ (BINDIR) 
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/★★★a************************************************************************************* 

* MODULE NAME AND FUNCTION: ( h info ) * 

it 

* This client is used to provide the user with all HISDE-specif ic information. It pro- * 

* vides all data which is unique to the HISDE system, including the following items: 

it 

it 

* Username - the name of the user currently logged into the workstation. * 

it 

* 

* Operation mode - the mode of operation on the current workstation (development, 

* simulation, or flight) . * 

* 

* 

* Classification - the classification mode of the current workstation (non-classi- * 

★ fied, secret, or classified) . * 


Current Host 


Current Flight 


the host system to which unqualified communications requests will 
be routed. Note that the user may update this item if desired. 

- the current flight being accessed and/or controlled by the HISDE 
system. Note that the user may update this item if desired. 


★ Host list - a list of all host and workstation systems which are accessible from * 

★ the current workstation. * 

★ * 

* Realtime data sources list - a list of all realtime data sources which are cur- * 

* rently being accessed by processes on this work- * 

* station. * 

* * 

* Flight list - a list of all flights which are currently active. * 

★ * 

★ In addition to viewing this data, the user will be able to easily update the current * 

★ host or flight. * 

★ * 

* When this client executes, it will display a main window which presents each of the * 

* data items described above. For the username, operation mode, and classification, it * 

* is not possible to alter the contents of the item (this is true for the data lists as * 

* well) . The current host and flight fields however may be changed if the user desires. * 

* In such a case, the user may simply enter the desired value or 'cut and paste' text * 

* from the appropriate data list field. When the new text is in place, the user need * 

* simply exit from the field. At this time, the system data item (and any initialized * 

* monitor window) will be updated. * 

* * 

* The three data list fields may at any given time contain data which is too large to be * 

* seen at once on the field. Therefore, each provides a scrollbar which allows the user * 

* to easily page through the data. * 


* DESCRIPTION OF MAIN FUNCTION: * 

* * 

* This is the main function of the h_info client. It is responsibile for initialization * 

* of the resource database and all widgets which make up the main window and the popup * 

* monitor windows. Once all widgets and their associated callbacks are initialized and * 

* realized, this routine calls the Xtoolkit intrinsic (XtMainLoop) to process all in- * 

* coming events. * 

* * 

* This routine initializes the application-specific resources (or options) allowed by * 

* this client. These resources may be set in the server, in an .Xdefaults file, or on * 

* the command line. For a complete listing of these resources, refer to the main header * 

* block. * 

* * 

* This routine initializes 6 distinct hierarchies of widgets to present the monitor and * 

* main windows. The monitor windows each consist of a popup shell widget and a child * 

* label widget. They are "popped” up and down as requested by the user. As they are * 

* shell widgets, it is possible to manipulate them in a manner which is independent of * 

* the main window. This assumes of course that the user has access to a window manager. * 






./h_mfo/h_info.c 


The main window consists of a complicated hierarchy of widgets. Essentially, it con- 
sists of a main form with several child forms, each of which present one major piece 
of information. Each child form in turn controls several widgets, as required by the 
associated data. The full hierarchy of widgets is summarized below: 


top 


-> form — + — > form (Client ) — +- 

(ID > +- 


+ — > form (Username) — +- 

+■ 
+ 


+ — > form (Operate ) 
(Mode ) 


+ — > form (Operate ) 
(Classif ) 


— > form (Current ) 
(Host ) 


— > form (Current ) 
(Flight ) 


— > form (Host ) 

(List ) 


+- 

+- 

— +- 
+- 
+- 

■-+- 

+- 

+- 

+- 

+- 

— +- 
+- 


— > label 
— > command 

-> label 
— > command 
— > text 

--> label 
— > command 
--> text 

— > label 
■-> command 
*-> text 

-> label 
-> command 
-> text 

-> label 
-> command 
-> text 

-> label 
-> text 


(exit client) 


(initialize monitor window) 
(actual data) 


(initialize monitor window) 
(actual data) 


(initialize monitor window) 
(actual data) 


(initialize monitor window) 
(actual data) 


(initialize monitor window) 
(actual data) 


+ — > form (Realtime) — + — > label 
(List ) + — > text 


+ — > form (Flight ) 
(List ) 


label 
+ — > text 


(data list with scrollbar) 


(data list with scrollbar) 


(data list with scrollbar) 


Each of the forms used is offset from other forms to maintain a consistent layout of 
information. The widgets with each form are in turn offset from one another in the 
same way. This insures that homogenous widgets remain in close proximity and in a 
sensible arrangement. 

Once this function calls XtMainLoop, there are a number of callback, timer, and action 
events which may be executed. These functions, the command widgets/timer/action event 
to which they are aried, and the operations they perform are as follows: 


function 

cbr_info_terminate 

cbr_monitor_init 

act_monitor_update 


event 

exit 

init monitor 
leave field 


t mr__mo n i t o r _upda t e timer 


operation 

terminate h_info client 
pop up or down a monitor window 
update monitor data for host or flight 
update host, rts, or flight list 


For more information on these callback, timer, and action functions, refer to the 
appropriate source code file. 


SPECIFICATION DOCUMENTS: 


A 

★ 

★ 

+ 

★ 

* 

* 

* 

* 

* 

* 

★ 

* 

* 

★ 

* 

* 

* 

★ 

★ 

* 

* 

★ 

★ 

* 


/hisde/req/ requirements 
/hisde/design/design 



* EXECUTION SEQUENCE: 

★ 

* h_info [-interval value] 

★ 

* -interval value - optional argument which allows the user to specify the inter- 

* val (in seconds) used to update the host, realtime data source, 

* and flight lists. The value must be in the range of 10 to 300 

* seconds. If not specified, the default of 30 seconds will be 

* used. 

* 

★ 

* SYSTEM RESOURCES USED: 

* 

* This client indirectly accesses and updates the HISDE shared memory segment via rou- 

* tines in the HISDE library. 

* 

* 

* EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input/Output) 

* 

* This routine initializes all declared widget variables, the strings which contain 

* the HISDE information, and the timer value. 

* 


it 

★ ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 

a*************************************************************************************** 


# include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 


<stdio .h> 

<Xll/IntrinsicP .h> 
<Xll/StringDef s .h> 
<X11/Cardinals .h> 
<X11/Shell . h> 
<Xm/MainW. h> 
<Xm/RowColumn . h> 
<Xm/Text .h> 
<Xm/List . h> 

<hisde .h> 
<h_user_inter . h> 
<h_info ,h> 

<h info.bit> 


/* 

* Declare the variable used to contain the timer value. It is made external to allow 

* it to be used in the function which is executed upon completion of the timer. By 

* default, it is initialized to 30 seconds, but may be changed by the user. 

*/ 

unsigned int time revalue * DEFAULT_TIMER_VALUE; 

/* 

* Declare all widgets which will be used by this client. Again, this data is made 

* external to allow simple access in callback, timer, and action functions. 

*/ 

Widget top, m_main, mb_main, mp_file, widget, form, 

t_username, 
t_mode, 
t class. 
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t — host, 
t_f light , 
t_rts, 
t_lhosts, 
t_lf lights, 
t lrts; 



/* 

* Declare all callback, action, and timer functions used by this client 
*/ 

extern XtCallbackProc cbr_info_terminate () , 

cbr_select (); 

extern XtTimerCallbackProc tmr_monitor_update ( ) ; 


main { argc, argv ) 
int argc; 

char **argv; 

{ 

/* 

* Define the application-specific resources allowed by this client. These values 

* may be set previously (in server or .Xdefaults) or in the command line. 

*/ 

static XrroOptionDescRec options [ ] - { 

{ "-interval", "Interval", XrmoptionSepArg, NULL } 

} ; 

/* 

* Specify the variables which will be updated if any of the application-specific 

* resources were specified. Note that if any of the monitor window resources 

* are included, the appropriate boolean variable (monl, mon2, mon3, mon4, or mon5) 

* will be set to TRUE. If an update interval is specified, the (timer value) 

* variable will be set . 

*/ 


static Boolean monl, mon2, mon3, mon4, mon5; 


static XtResource resources [ ] ■* { 

{ "interval", "Interval", XtRInt, sizeof(int), 

XtRInt, (caddr_t ) &timer_value } 

} ; 


(Cardinal) & time revalue. 


/* 

* the callback lrst reguxred for the routine which terminates this client 

* This callback occurs when the user selects the "exit" command. 

*/ 


static XtCallbackRec cb_terminate [ ] - ( 

{ (XtCallbackProc) cbr_info_terminate, (caddr_t ) NULL }, 
{ (XtCallbackProc) NULL, (caddr t)NULL } 

}; “ 


static XtCallbackRec cb_select [ ] * { 

( (XtCallbackProc) cbr_select, (caddr_t ) NULL }, 

{ (XtCallbackProc) NULL, (caddr_t ) NULL ) 

} ; 

/* 

* Declare all information items which are presented by this client. This data is 

* external, as this greatly simplifies its use in callback functions. 

*/ 




char 


Arg 


username 
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[SIZE USERNAME + 1 ], 

mode 

[SIZE_MODE + 1 ]» 

class 

[SIZE_CLASS + 1 ]» 

host 

[SIZE_HOSTNAME + 1 ], 

flight 

[SIZE_FLIGHT + 1 ], 

rts 

[SIZE HOSTNAME + 1 ], 

flight list [SIZE_FLIGHT_LIST + 1 ], 

host_list 

[SIZE_HOST_LIST + 1 ], 

rts — list 

[SIZE_RTS_LIST + 1 ]; 

icon_arg, 

/* Define the argument used to 


* graphic icon for this client 

args [ 1 ] ; 

*/ 



/* 

* Use HISDE library routines to retrieve the initial values from shared memory. If 

* any call returns an error (nonzero), output a message and exit from this client. 

*/ 


if ( h_get_username 
h_get_mode 
h_get_class 
h_get_host 
h_get_f light 
h_get_realtime__host 
h_list_hosts 
h_l i s t_f light 
h list realtime hosts 


( username ) 
( mode ) 
( class ) 
( host ) 
( flight ) 
( rts ) 
( host_ list ) 


( flightJList ) I I 
( rts_list ) ) { 


h_message ( MSG_ERROR, "Could not retrieve system information values" ) ; 
exit ( 1 ) ; 


* Initialize the Xtoolkit, parse command line, and return the root widget which will be 

* the parent of the main window. Note that this call also parses all application 

* specific resources . 

*/ 


top - Xtlnitialize ( NAME_SHELL, NAME_APLIC, options, Xt Number (options) , &argc, argv ) 


* If there were arguments on the command line which could not be parsed, call the 

* function (bad — syntax) to report the error, display the correct syntax, and exit from 

* the client. 

*/ 


if ( argc > 1 ) 

bad_syntax ( "h_info [-interval value]" ); 


/* 

* Initialize the icon bitmap for this client. 
*/ 


XtSetArg ( icon_arg, XtNiconPixmap, 

XCreateBitmapFromData ( XtDisplay (top) , XtScreen (top) ->root , 

h infojbits, h_info_width, h_inf o_height ) ) ; 


/* 


XtSetValues ( top, &icon_arg, ONE ); 
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Retrieve any application-specific resources which were initialized previously or in 
the command line. This includes both initialization of monitor windows and the 
data update interval. 

Upon return, check if the user has specified an invalid timer value. The timer value 
used must be in the range of 10 to 300 seconds. If an invalid value was specified, 
output a message and set the value to the default (30 seconds or 30000 milli- 
seconds) . Otherwise, multiply the specified value by 1000 to get it into mill- 
seconds . 


XtGetApplicationResources ( top, (caddr t)NULL, resources, XtNumber (resources) , 

NULL, ZERO ) ; 

if ( timer_value < M I NJTIME REVALUE | | timer^value > MAX_TIMER VALUE ) { 

h_message ( MSG_WARNING, "Invalid timer value specified -~Default will be used" ) • 
timer_value - DEFAULT_TIMER_VALUE * 1000; 

) else 

timer_value - timer_value * 1000; 


/* 

* Create the main window widget and the menu bar which will contain all commands. 
*/ 


m_main — XmCreateMainWindow ( top, NULL, 0 ); 

XtManageChild ( m_main ) ; 

mbjmain “ XmCreateMenuBar ( m_main, NULL, 0 ); 

XtManageChild ( mb_main ) ; 


/* 

* Create pulldown for file commands. 
*/ 


mp_file _ XmCreatePulldownMenu { rab_main, NULL, 0 ) ; 
create_cascade ( mb_main, mp_file, LABEL_FILE ) ; 

create_command ( mp_file, LABEL_EXIT, cb_terminate ); 


/* 

* Create the help cascade. 
*/ 


widget - create_cascade ( mb_main, NULL, LABEL_HELP ); 
XtSetArg ( args [ 0 ], XmNmenuHelpWidget, widget ); 
XtSetValues ( mb_main, args, 1 ); 


/» 

Create the form which is used for the main information window. This form will be 
the parent to all widgets except those used for the monitor windows. 

* / 


form - create_f orm ( m_main ) ; 


/* 

* Initialize all single line fields. 
*/ 


create_label ( W_L_USER_M, form, LABEL_USERNAME ) ; 
t_username - create^ text ( W_T_USER_M, form, username, 0, XmSINGLE_LINE EDIT, 0) ; 

create_label ( W_L_MODE_M, form, LABEL_MODE ) ; 
t_mode - create_text ( w_T_MODE_M, form, mode, 0, XmSINGLE_LINE_EDIT, 0 ) ; 

create_label ( W_L_CLASS_M, form, LAB EL_C LASS ) ; 
t _ c ^ as3 * create__text ( W_T_CLASS_M, form, class, 0, XmSINGLE__LINE EDIT, 0 ) ; 
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create label ( W_L HOST_M, form, LABEL HOST ) ; 

t host ■ create text ( W_T__HOST_M, form, host, 0, XmSINGLE_LINE_EDIT, 0 ) ; 

create label ( W_L_FLIGHT_M, form, LABEL__FLIGHT ) ; 
t_f light - create”text ( W_T_FLIGHT__M, form, flight, 0, XmSINGLE_LINE_EDIT, 0 ) ; 


create_label ( W_L_RTS_M, form, LABEL_RTS ) ; 
t rts - create text ( W_T_RTS_M, form, rts, 0, XmSINGLE_LINE_EDIT, 0 ); 


/* 

* Create all list labels. 
*/ 


create_label ( W_L_LHOSTS_M, 
create__label ( W_L_LFLIGHTS_M, 
create label ( W L_LRTS_M, 


form, LABEL_LHOSTS ) ; 
form, LABEL_LFLIGHTS ) ; 
form, LABEL_LRTS ) ; 


/* 

* Create the scrolled lists. Each has a callback initialized to process selection of 

* an entry in a list. 

*/ 


cb_select [ 0 ] .closure - (caddr_t ) CB_HOST; 

XtSetArg ( args [ 0 ] , XmKbrowseSelectionCallback, cb_select ) ; 

XtManageChild ( t_lhosts - XmCreateScrolledList { form, W_S_LHOSTS_M, args, 1 ) ); 


cb_select [ 0 ] .closure ** (caddr_t ) CB_FLIGHT; 

XtSetArg ( args[ 0 ], XmNbrowseSelectionCallback, cb_select ); 

XtManageChild ( t_lf lights - XmCreateScrolledList ( form, W_S_LFLIGHTS_M, args, 1 ) ) 
cb_select [ 0 ] .closure - (caddr_t ) CB_RTS; 

XtSetArg ( args [ 0 ], XmNbrowseSelectionCallback, cb_select ); 

XtManageChild ( t_lrts - XmCreateScrolledList ( form, W_S_LRTS_M, args, 1 ) ) 

/* 

* Initialize each list. 

*/ 


init_list ( t_lhosts, 
init_list ( t_ If lights, 
init_list { t_lrts. 


host_list ) ; 
flighty list ) ; 
rts list ) ; 


/* 

* Initialize the first iteration of the timer. This will cause the tmr_data_update 

* callback routine to be executed. This routine in turn will re-initialize each 

* timer event, as they are deinitialized once they occur. 

*/ 


XtAddTimeOut ( timer_value, tmr__monitor_ update, NULL ) ; 


/* 

* Realize the top level widget. This causes the main form of this client to be 

* displayed. Note that if the user included the "-iconic" parameter in the command 

* line, the form will be displayed as an icon. 

*/ 


XtRealizeWidget ( top ) ; 


/* 

* Enter the normal Xtoolkit main loop, which coordinates processing of the various 

* widget events. This loop will terminate normally when the user selects the 

* "Exit" command, which in turn causes the cbr_info_terminate callback routine to be 

* executed . 
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XtMainLoop ( ) ; 
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.«..*..*****..*«*«**********«****' «***«■ ***«**«**********************************" 
MODULE NAME AND FUNCTION < tmr_monitor_update ) „ 

This is a callback function which is activated at a defined interval. By default, 
llil interval is 30 seconds, but may be set by the user at execution time within the 
range of 10 to 300 seconds. The interval is stored in the external (timer_value) . 
is never updated once this client is running*. 

This function is activated in order to update those fields which contain dynamic data. 
These include: 


o Host list - list of all active hosts, 

o Flight list - list of all active flights, 

o Realtime data list - list of all active realtime data sources. 

* For more information on these fields and the data they present, refer to the main 

* module header. 


* SPECIFICATION DOCUMENTS: 

★ 

* /hisde/req/ requirements 

* /hisde /design/design 

* 

★ 

* EX 

★ 

* 

★ 

★ 

★ 

* 

★ 

* 

★ 

★ 

* 
it 
it 
it 

* ORIGINAL AUTHOR AND IDENTIFICATION 
Mark D. Collier 


NAL DATA USED: ('I' “ 

Input 

time revalue 

(unsigned) 

(I) 

t_lhosts 

(Widget) 

(I) 

t_lrts 

(Widget) 

(I) 

t_l flight 3 

(Widget) 

(I) 


'O' - Output 'I/O' - Input/Output) 


The timer value which determines the interval be- 
tween calls to this function. 

Pointer to the text widget containing the list of 
active hosts. 

Pointer to the text widget containing the list of 
of realtime data sources. 

Pointer to the text widget containing the list of 
active flights. 


Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 

* Southwest Research Institute ^ . 

********************************************************************************** 7 


* 

it 

* 

* 

* 

★ 

★ 

★ 

* 

★ 

* 

* 

★ 

★ 

it 

it 

* 

it 

* 

* 

★ 

★ 


♦include <X11/Intrinsic.h> 
♦include <hisde.h> 

♦include <h_info.h> 


extern unsigned t ime revalue; 

extern Widget t_lhosts, 

t_lrts, 
t_lf lights; 


Xt Time rCallbackP roc tmr_monitor_update ( client_data, id ) 


/* 


Character data passed to 


this callback function. 


caddr t 


client data; 





Xt Interval Id 


►id; 
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* It ia currently unused by this function. 

*/ 

/* Identifies the timer which caused this function to 

* be activated. 

*/ 


static char 

host_list_t [ SIZE_HOST_LIST + 1 ], 


/ Temporary buffer used to get the most recent host 

* list* it is compared to the current list to de- 

* termine if it needs to be updated. 

f light_list_t [ SIZE_FLIGHT_LIST + 1 ], 

/* Temporary buffer used to get the most recent 

* flight list. 

*/ 

+ 1 ]; 


rts_list__t [ SIZE RTS LIST 


/* Temporary buffer used to get the most recent 
* real-time data sources list. 

*/ 


Update the list 
function fails, 


of hosts. Note that in the unlikely event that the h list hosts 
output a message and exit . — — 


if ( h_list_hosts { host_list_t ) “ 0 ) 

upda t e_t ext_w idge t ( t_lhost s, host list t ); 
else { ~ ~ 

h_message ( MSG_ERROR, "Could not retrieve the list of current hosts" ) ; 
exit ( 1 ) ; 

} 


As described for the host list widget, update the list of real-time data sources 


if ( h_li3t_realtime_hosts ( rts_list t ) — 0 ) 
update_text_widget ( t_lrts, rts list t ); 
else { “ ~ 

hmessage ( MSG_ERROR, "Could not retrieve the list of current realtime sources" ) 

exit ( 1 ) ; 

) 


As described for the host list widget, update the current flights list widget. 


if ( h_list_f light { f light_list_t ) — 0 ) 

update_text_widget ( t_lflights, flight list t ) ; 
else { ~ — 

h_message ( MSG_ERROR, "Could not retrieve the list of current flights" ) 
exit ( 1 ) ; * f 


Reinitialize the timer to cause this function to be executed at the next interval 
It is necessary to perform this each time as the interval is deinitialized after 
it completes (indicated by execution of this function) . 


XtAddTimeOut ( time revalue, tmr__monitor_update, NULL ) ; 






./h_info/cb r_inf o_trm. c 

/**************************************************************^m A# ^^ A ^^^ 

* MODULE NAME AND FUNCTION ( cbr_inf exterminate ) 




* 


* This callback function is activated when the user selects the exit command widget. It r 

* is responsible for normal termination of the h_info client. It simply destroys the * 

* top level widget, which in turn causes all subordinate widgets (including the popup * 

* shells to be destroyed. * 


* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/ requirements 

* /hisde /design/ design 


* EXTERNAL DATA USED: {' I ' - Input ' O' - Output ' I/O ' - Input /Output ) 

* 

* top (Widget) (I) - Pointer to the root widget of the main window. 

★ 

★ 


* 

•k 

★ 

* 

* 


* ORIGINAL AUTHOR AND IDENTIFICATION: 


Mark D. Collier - Software Engineering Section * 

Data System Science and Technology Department * 

Automation and Data Systems Division * 

Southwest Research Institute * 






♦include <X11/Intrinsic . h> 


extern Widget top; 


XtCallbackProc cbr_info_terminate ( widget, closure, calldata ) 

widget widget; /* Set to the widget which initiated this callback 

* function. 

*/ 


caddr_t closure. 


calldata; 


{ 

XEvent event ; 


/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client . This parameter is 

* is not used by this function. 

*/ 

/* Event structure needed to make the calls to the 

* XtNextEvent and XtDispatchEvent functions. 

*/ 


/* 

* Destroy the root application shell widget and thereby, all subordinate widgets which 

* make up the window and any popup windows used for monitors . 

*/ 


XtDestroyWidget ( top ) ; 


/* 

* Determine if any events have been queued. These will normally be events which 

* cause the widgets destroy callback to be executed. Waiting and then processing 

* the events insures that all data structures initialized by the widgets are 
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* properly deallocated. 
*/ 


XtNextEvent ( fievent ) ; 

XtDispatchEvent ( fievent ) ; 


/* 

* Close the display to deallocate any connections set up by X Windows. Next 

* exit from the client. 

*/ 


XCloseDisplay ( XtDisplay ( top ) ) ; 
exit ( 0 ) ; 
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* MODULE NAME AND FUNCTION: cbr_select 

★ 


This callback is executed when the user selects a string from either the hosts 
flights, or rts lists. It will automatically updates the corresponding text 
widget . 


* 


* SPECIFICATION DOCUMENTS: 

★ 


* /hisde/req/ requirements 

* /hisde/design/design 

* 

* 


* EXTERNAL DATA USED: ('I' 


Input 'O' - Output 'I/O' - Input/Output) 


* 

★ 

* 

* 

* 

* 

★ 

* 


t_host 

(Widget) 

(0) - Text 

widget 

for 

t_f light 

(Widget) 

(0) - Text 

widget 

for 

t_rts 

(Widget) 

(0) - Text 

widget 

for 


the host field. 

the flight field. 

the realtime data host. 


* ORIGINAL AUTHOR AND INDENT IF I CAT ION : 

* 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 
************************************************************************************** 


♦include <stdio.h> 

♦include <X11/Intrinsic . h> 
♦include <Xm/List.h> 
♦include <hisde.h> 

♦include <h info.h> 


extern Widget t_host, t_flight, t_rts; 


cbr_select ( widget, closure, calldata ) 


Widget widget; /* Set to the widget which initiated this callback 

* function. 

*/ 


caddr_t closure. 


calldata; 


( 

XmListCallbackStruct 


/* Callback specific data. This parameter will be 

* be set to a value which identifies the selected 

* command. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client . This parameter is 

* is not used by this function. 

*/ 

*ptr; /* Structure type returned by the (calldata) 

* parameter. The selection text will be retrieved 

* from it. 

*/ 


★ 


p; 


char 


/* Updated to point to the actual text selection. 
*/ 
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* Set (ptr) to the structure pointer passed in (calldata) . 
*/ 

ptr - (XmListCallbackStruct *) calldata; 


/* 


*/ 


Extract the actual string from the compound string in the returned structure 
this function fails, generate a message and return. 


if 


} 


( XmStringGetLtoR ( ptr->item, 
display__message ( MSG_ERROR, 


XmSTRING — DEFAULT — CHARSET , &p ) ” FALSE ) { 

"Could not convert selection string" ) ; 


return; 


If 


1 Based on which list generated the callback, update the appropriate text widget 
*/ 

if ( (int) closure “ CB__HOST ) 

update_text_widget ( t_host, p ) ; 
else if ( (int) closure — CB__F LIGHT ) 

update__text__widget { t_f light, p ) ; 
else if ( (int) closure “ CB__RTS ) 
upda t e_t e xt _w i dge t ( t__rts , P ) • 

) 
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*•« 



# 

# Define the target which this file is to create. 


TARGET 


h info a 


I t nC ] Ude 3nd library search paths to include current directory and the 

# Ubrary" ° ri63 - NOte that the Ubrary path also includes the *ser interface 

# 


BINDIR 

INCDIR 

INCDIRS 


* /hisde/bin 

- /hisde/src/include 

- -I. -1$ (INCDIR) 


# 

# Define the libraries to search. This includes the HISDE 

# interface library, and all required X libraries. 


library. 


the local user 


LIBRARIES - -lui -Ihisde -lXm -IXt -1X11 

# 

# Define the compiler and linker flags. 


CFLAGS * -0 $ (INCDIRS) 

LDFLAGS - -O $ (EXTRAFLAGS ) 

# 

# Define all objects which make up this target. 


OBJS »\ 

cbr_list_int . o\ 
cbr_info_a_t ,o\ 
h_info_a . o 

# 

^ Define all header files required. 

HDRS -\ 

$< INCDIR) /h_info_a.h\ 

$ (INCDIR) /h_info_a .bit \ 

$ ( INCDIR) /h_user_inter . h\ 
$ (INCDIR) /hisde.h 

# 

# Make the target . 


all: $ (TARGET) 

$ (TARGET): $(0BJS) 

$(CC) -o $0 $ (OBJS ) $ (LIBRARIES) $ (LDFLAGS) 
Strip $ (TARGET) 

mv $ (TARGET) $ (BINDIR) 
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$ (OBJS) 


$ (HDRS) 
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/*.** ********************************************************* 

* MODULE NAME AND FUNCTION: < h_info_a ) * 

* 

* This client is used to provide the user with all HISDE-specif ic information. It is 

* functionally identical to the client (h_info) , except that it presents its information * 

* in a different format. This format is similar to that presented by the (info) appli- * 

* cation in the WEX software system. As the two clients are functionally equivalent, * 

* the user may use whichever best suits his needs. , * 

* 


* This client presents all data which is unique to the HISDE system. 

* following items of information. 


This includes the * 


★ 

* 

* 

* 

* 

it 

* 

it 

★ 

★ 

* 

* 

it 

* 

* 

* 

★ 

* 

it 

it 

it 

it 

it 


Username - the name of the user currently logged into the workstation. 

Operation mode - the mode of operation on the current workstation (development , 
simulation, or flight) . 


Classification - the classification mode of the current workstation (non-classi- * 
fied, secret, or classified) . * 

* 

Current Host - the host system to which unqualified communications requests will * 
be routed. Note that the user may update this item if desired. * 

★ 

Current Flight - the current flight being accessed and/or controlled by the HISDE * 
system. Note that the user may update this item if desired. * 

* 

Host list - a list of all host and workstation systems which are accessible from * 
the current workstation. * 

Realtime data sources list - a list of all realtime data sources which are cur- * 

rently being accessed by processes on this work- 
station . 


Flight list - a list of all flights which are currently active. 

* Note that the username, the operation mode, the classification, the current host, and 

* exigent flight are constantly displayed in the information window. The remaining 
three items are lists of information which require more screen space to display. For 

* th ^ 5 reason, they are accessible as 'popup' windows, which may be displayed and re- 

* moved as required by the user. To activate one of these windows, the user need simply 
select the appropriate command button. This command button will toggle on and off 
display of the window. Note that it is possible to leave any or all of the lists dis- 

* played on the screen. They will be updated if any changes occur to the data lists. 

* All list windows will include a scrollbar to allow the user to page through data which 

* is too large to fit at once in the window. 


* Note that the user is allowed to update the values in the current host and current 

* flight fields. In this case, the user may enter the desired field and simply enter 
the new value. Alternatively, he may 'cut' a host or flight string from the approp- 
riate list window and 'paste' it into the text field. In any case, the value will be 
checked and updated when the user removes the cursor from the field. Note that if the 

* user enters an invalid value, he will receive an error message and no update will take 

* place . 

* 

* To exit from this client, the exit command in the upper right corner may be selected. 
This causes both the main window and all list windows to be removed. 

★ 

* DESCRIPTION OF MAIN FUNCTION: 

★ 

* This is the main function of the h_info_a client. It is responsibile for initializa- 

* tion of the resource database and all widgets which make up the main window. Once all 

* widgets and their associated callbacks are initialized and realized, this routine 


it 

it 

★ 

★ 

* 

* 

* 

it 

it 

it 

* 

it 

* 

it 

it 

★ 

★ 

it 

* 

* 

* 

it 

* 

* 

* 

± 



./h_info_a/h_info_a.c 



refer to the main header * 

* 


* calls the Xtoolkit intrinsic (XtMainLoop) to process all incoming events. 

★ 

* This routine initializes the application-specific resources (or options) allowed by 

* this client. These resources may be set in the server, in an .Xdefaults file, or on 

* the command line. For a complete listing of these resources 
block . 

* 

This routine initializes 4 distinct hierarchies of widgets to present the main and * 

popup windows. The popup windows each consist of a popup shell widget and a child * 

text widget. Note that although they appear to be 'popped' up and down, they are act- * 

* ually destroyed and recreated. This insures that they will be placed at the correct * 

* screen position in case the user uses the window manager to move them to another part * 

* of the screen. 


The main window consists of a complicated hierarchy of widgets. Essentially, it con- 
sists of a main form with several child forms, each of which present one major piece 
of information. Each child form in turn controls several widgets, as required by the 
associated data. The fu 


top 


■> form 


-+- 

I 


hierarchy of widgets is 

summarized below: 


* 

* 

• form 

(Username) 

— + — > 

label 



* 



+ — > 

text 

(actual data) 
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value (text widget) . This 
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is because there is no current value and the user is not allowed to change the data. 

Each of the forms used is offset from other forms to maintain a consistent layout of 
information. The widgets with each form are in turn offset from one another in the 
same way. This insures that homogenous widgets remain in close proximity and in a 
sensible arrangement. 

Once this function calls XtMainLoop, there are a number of callback, timer, and action 
events which may be executed. These functions, the command widgets/timer/action event 
to which they are aried, and the operations they perform are as follows: 


function 

cbr_info_a_terminate 

cbr_list_init 

act list update 


event 

exit 

init popup list 
leave field 


operation 

terminate h_info_a client 
pop up or down a list window 
update system data for host/flight 


For more information on these callback, timer, and action functions, refer to the 
appropriate source code file. 

SPECIFICATION DOCUMENTS: 
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/hisde/req/ requirements 
/hisde /design/design 


* EXECUTION SEQUENCE: 


* h_info_a [-interval value] * 

* * 

* -interval value - optional argument which allows the user to specify the inter- * 

* val (in seconds) used to update the host, realtime data source, * 

* and flight lists. The value must be in the range of 10 to 300 * 

* seconds. If not specified, the default of 30 seconds will be * 

* used. * 




* SYSTEM RESOURCES USED: * 

* * 

* This client indirectly accesses and updates the HISDE shared memory segment via rou- * 

* tines in the HISDE library. * 

* * 

* * 

* EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input /Output ) * 

* * 

* This routine initializes all declared widget variables and the strings which con- * 

* tain the HISDE information. * 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

* 


Mark D. Collier 


Software Engineering Section 
Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 


★ a******************* ********** 




# include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 


<stdio .h> 

<X11/ Intrinsic ,h> 
<Xll/StringDef s .h> 
<X11/Cardinals ,h> 
<X11/Shell.h> 
<Xll/MwmUtil.h> 
<Xm/MainW.h> 
<Xm/RowColumn . h> 
<Xm/Form.h> 

<hisde . h> 
<h_user_inter . h> 
<h_info_a .h> 

<h info a.bit> 


/* 

* Declare all widgets which will be used by this client. Again, this data is made 

* external to allow simple access in callback and action functions. Note that the 

* the (popup_shells) and (popup_text) arrays are used to maintain the popup list 

* windows . 

*/ 

Widget widget, top, m_main, mb_main, mp_file, form, rc_info, 

t_rts, t_host, t — flight; 

/* 

* Declare all callback, action, and timer functions used by this client. 



extern XtCallbackProc 


cbr_list_init { ) , 

cbr info a terminate {) ; 


main ( argc, argv ) 
int argc; 

char **argv; 

{ 

/* 

* Initialize the callback list required for the routine which terminates this client. 

* This callback occurs when the user selects the "exit” command. 

*/ 


static XtCallbackRec cb_terminate [] - { 

{ (XtCallbackProc) cbr_inf o_a_terminate, (caddr_t) NULL } , 
{ (XtCallbackProc) NULL, (caddr_t) NULL } 

) ; 


/* 

* Initialize the callback list required for the function which initializes the list 

* windows. For each command widget, the callback list will be initialized with the 

* appropriate (closure) parameter. 

*/ 


static XtCallbackRec cb_list__init [ ] - { 

{ (XtCallbackProc) cbr_list_init , (caddr_t ) NULL }, 
{ (XtCallbackProc) NULL, (caddr_t) NULL ) 

>; 


/* 

* Declare all information items which are presented by this client. This data is 

* external, as this greatly simplifies its use in callback, action, and timer functions. 
*/ 


char username [ SIZE_ USERNAME + 1 ], 

mode { SIZE_MODE + 1 ], 

class [ SIZE_CLASS + 1 ], 

host [ SIZE_HOSTNAME + 1 ], 

flight [ SIZE_FLIGHT + 1 ], 

rts [ SIZE HOSTNAME + 1 ]; 


Arg icon_arg, 


args [ 1 ] ; 


/* Argument used to initialize the graphic icon 

* for this client. 

*/ 

/* Argument list used to initialize various widget 

* resources. 

*/ 


/* 

* Use HISDE library routines to retrieve the initial values from shared memory. If 

* any call returns an error (nonzero), output a message and exit from this client. 

*/ 

if ( h_get_username ( username ) I I 

h_get_mode ( mode ) I I 

h_get_class ( class ) I I 

h_get_host ( host ) I I 

h_get_f light ( flight ) I I 

h_get_realtime_host (rts ) ) { 

hjmessage ( MSG_ERROR, "Could not retrieve system information values" ); 
exit ( 1 ) ; 



} 
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/* 

* Initialize the Xtoolkit, parse command line, and return the root widget which will be 

* the parent of the main window. Note that this call also parses all application 

* specific resources. 

*/ 


top - Xt Initialize ( NAME_SHELL, NAME_APLIC, NULL, 0, &argc, argv ); 

/* 

* If there were arguments on the command line which could not be parsed, call the 

* function <bad_syntax) to report the error, display the correct syntax, and exit from 

* the client. 

*/ 


if ( argc > 1 ) 
bad_syntax ( 

"h_inf o_a [-interval value] [-username] [-mode] [-class] [-host] [-flight]" ); 


/* 

* Initialize the icon bitmap for this client. 
*/ 


XtSetArg ( icon_arg, XtNiconPixmap, 

XCreateBitmapFromData ( XtDisplay (top) , XtScreen (top) ->root , 

h_info_a_bits, h_info_a_width, h_info_a_h eight ) ) 


XtSetValues ( top, &icon_arg, ONE ) ; 

/* 

* Create the main window widget and the menu bar which will contain all commands. 
*/ 

m_main » XmCreateMainWindow ( top, n ", NULL, 0 ) ; 

XtManageChild ( m_main ) ; 

mb_main - XmCreateMenuBar ( m_main, NULL, 0 ); 

XtManageChild ( mb_main ) ; 


/* 

* Create pulldown for file commands. 
*/ 


mp_f ile - XmCreatePulldownMenu ( mb__main, NULL, 0 ); 

create_cascade ( mb_ main, mp_file, LABE L_F ILE ) ; 

create_command ( mp_file, LABEL_EXIT, cb__terminate ); 


/* 

* Create the help cascade. 
*/ 


widget - create_cascade ( mb_main, NULL, LABEL_HELP ); 
XtSetArg ( args [ 0 ], XmNmenuHelpWidget, widget ); 
XtSetValues ( mb_main, args, 1 ); 


/* 

* Create a RowColumn widget to contain all widgets. 
*/ 


XtSetArg ( args [ 0 ], XmNorientation, XmHORI ZONTAL ); 
rc_info - XmCreateRowColumn ( nwnain, args, 1 ) ; 

XtManageChild ( rc_info ) ; 
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* Initialize the widgets which will contain the username information. 

*/ 

create label ( rc_info, LABEL_USERNAME ); 

create text ( "", rc_info, username, 0, XmSINGLE_LINE_EDIT, 0 ) ; 

/* 

* Initialize the widgets which will contain the mode information. 

*/ 

create label ( rc_info, LABEL_MODE ); 

create text ( rc_info, mode, 0, XmSINGLE_LINE_EDIT, 0 ); 

/* ..... 

* Initialize the widgets which will contain the classification information. 

*/ 

create label ( "", rc_info, LABEL_CLASS ) ; 

create~text ( "", rc_info, class, 0, XmSINGLE_LINE_EDIT, 0 ) ; 

/* 

* Initialize the widgets which will contain the host information. This includes 

* a pushbutton with a callbackto the (cbr_list_imt) function. 

*/ 

cb list_init [ 0 ] .closure - (caddr_t) CB_HOST; 

create_command ( rc_info, LABEL_HOST, cb_list_init ) ; 

t host • create_text ( rc_info, host, 0, XinSINGLE_LINE_EDIT, 0 ) ; 




* Initialize the widgets which will contain the flight information. This includes 

* a pushbutton with a callbackto the (cbr list init) function. 

*/ 


cb_list_init [ 0 ] .closure - (caddr_t) CB_FLIGHT; 

create_command ( rc_info, LABEL_FLIGHT, cb_list_init ); 

t flight ” create_text { nn , rc_info, flight, 0, XmSINGLE_LINE_EDIT, 0 ); 


* Initialize the widgets which will contain the realtime information. This includes 

* a pushbutton with a callbackto the (cbr_list_init) function. 

*/ 


cb_list_init [ 0 ]. closure - (caddr_t)CB_RTS; 

create_command ( rc_info, LABEL_RTS, cb_list_init ) ; 

t rts ~ create text ( rc_info, 0, XmSINGLE_LINE_EDIT, 0 ); 


/* 

* Define the areas which constitute the main window widget. 

*/ 

XmMainWindowSet Areas ( m main, mb_main, NULL, NULL, NULL, rc_info ) ; 


* Realize the top level widget. This causes the main form of this client to be 

* displayed. Note that if the user included the "-iconic" parameter in the command 

* line, the form will be displayed as an icon. 

*/ 


/* 


XtRealizeWidget ( top ) ; 
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★ 

* 

* 

* 

*/ 


Enter the normal Xtoolkit main loop, which coordinates processing of 
the various widget events. This loop will terminate normally when the user selects 
the "Exit" command, which in turn causes the cbr_info_a_terminate callback routine 
to be executed. 


XtMainLoop ( ) ; 

} 
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/tn,*************************************************************************************** 

* MODULE NAME AND FUNCTION ( cbr_inf o_a_terminate ) 

* 

* This callback function is activated when the user selects the exit command widget. It * 

* is responsible for normal termination of the h_info_a client. It simply destroys the * 

* top level widget, which in turn causes all subordinate (including the popup shells) to * 

* be destroyed. t 


* SPECIFICATION DOCUMENTS: 

★ 


/hisde/req/ requirements 
/hisde /design /design 


* EXTERNAL DATA USED: ('I' - Input '0' - Output 'I/O' - Input/Output) 

top (Widget) (I) - Pointer to the root widget of the main window. 


* 

★ 

★ 

★ 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

* 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 
************* **★***★★*★ ****** **★***★★****★***★★ ************** ****************************/ 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 


♦include <X11/Intrinsic .h> 


extern Widget top; 


XtCallbackProc cbr_inf o_a_terminate ( widget, closure, calldata ) 

Widget widget; /* Set to the widget which initiated this callback 

* function. 

*/ 


caddr t closure. 


calldata; 


{ 

XEvent event; 


/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 

/ * Event structure needed to make the calls to the 

* XtNextEvent and XtDispatchEvent functions. 

*/ 


/* 

* Destroy the root application shell widget and thereby, all subordinate widgets which 

* make up the window. 

*/ 


XtDestroyWidget ( top ) ; 


/* 

* Determine if any events have been queued. These will normally be events which 

* cause the widgets destroy callback to be executed. Waiting and then processing 

* the events insures that all data structures initialized by the widgets are 
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* properly deallocated. 

*/ 

XtNextEvent { ievent ) ; 

XtDispatchEvent { ievent ) ; 

/* 

* Close the display to deallocate any connections set up by X Windows. 

* exit from the client. 

*/ 

XCloseDisplay { XtDisplay < top ) ) ; 

exit ( 0 ) ; 



Next 
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/***************, ******* ******************************************************************* 

* MODULE NAME AND FUNCTION ( cbr_list_init ) 

★ 

* •phis callback function is activatad whan tha user salacts tha host, flighty or raal 

* time data host push buttons in the main window. This function will determine the which 

* button and will display the corresponding list of available entries. This popup will 

* remain displayed until the user selects an entry or cancels. If an entry is selected, 

* it will become the current value (and displayed in the main window) if valid. 


* 

★ 


* SPECIFICATION DOCUMENTS: 


/hisde/req/ requirements 
/hisde/design/design 


* EXTERNAL DATA USED: (' I' - Input 'O' - Output 'I/O' - Input /Output ) 

top (Widget) (I) - Pointer to the root widget of the main window. 

t host (Widget) (I) - Pointer to text widget containing the current host. 

t f light (Widget) (I) - Pointer to text widget containing the current flight. 

t rts (Widget) (I) - Pointer to text widget containing the current realtime 

host . 


* 

* 
it 
* 
it 
it 
it 
it 
it 
it 
★ 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 

a****************************************************************************************/ 


♦include <X11/Intrinsic . h> 
♦include <Xll/StringDefs .h> 
♦include <X11/Cardinals .h> 
♦include <Xll/MwmUtil . h> 
♦include <Xm/ Select ioB.h> 
♦include <hisde.h> 

♦include <h_user_inter .h> 
♦include <h_inf o_a . h> 
♦include <h info a.bit> 


/* 

* Define the required external widget pointers. 
*/ 

extern Widget top, t_host, t_f light, t_rts; 


XtCallbackProc cbr_list_init ( widget, closure, calldata ) 

Widget widget; /* Set to the widget which initiated this callback 

* function. 

*/ 

caddr t closure, /* Set to an integer which indicates the callback: 

~~ * 

★ 


CB HOST 




calldata; 


{ 

/* 
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* CB_FLIGHT 

* CB_RTS 

* CB_OK (popup) 

* CB_CANCEL (popup) 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 



* Initialize the callback lists required to return control to this function from the 

* popup . 

*/ 


static XtCallbackRec cb_listl[ ] =» { 

{ (XtCallbackProc) cbr_list_init , (caddr_t ) CB__OK } , 
{ (XtCallbackProc) NULL, (caddr_t ) NULL } 

} ; 


static XtCallbackRec cb_ list2 [ ] » ( 
{ (XtCallbackProc) cbr_list_init , 
{ (XtCallbackProc) NULL, 

} ; 


(caddr_t)CB_CANCEL }, 
( caddr^t ) NULL } 


static Widget f_popup, /* widget used for the main selection popup form. 

* It is static to allow use from call to call. 

*/ 

tj)opup; /* widget used for the selection text. 

*/ 


static int 


save cmd; 


Arg 


args [ 4 ] ; 


/* Variable used to save the command which initiated 

* the popup display. 

*/ 

/* Argument list used to initialize the popup 

* widget resources . 

*/ 


XmString list [ MAX_HOSTS + 1 ] ; 

/* List of string pointers which will be initialized 
* with the selection list items (hosts, flights) . 


char data_list[ SIZE_HOST_LIST + 1 ], 

/* Buffer used to contain the list as returned from 

* shared memory. This is a physical string with 

* items separated by newlines. It is used for all 

* types of lists, SIZE HOST LIST is largest of 3. 

V “ 

temp [ SIZE_HOSTNAME + 1 ], 

/* String used to contain the current entry as parsed 

* from the (data list) . This value will be converted 

* to an XmString and saved in (list) . 

*/ 

*P ; /* Pointer used to step through the (data_list) . Also 

* used to point to selection text. 

V 

/* Set to the current value of the (closure) param- 

* eter. 

*/ 

/* Used to maintain number of items parsed from the 

* (datalist) . 


int cmd, 

count “ 0, 



status; 
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/* Maintains the status of the (h_set_xxx) call. 
★ g 


* Save the (closure) value in a more convienient form. 
*/ 

cmd - (int) closure; 


/* 

* 


Determine if called from main window. This requires initialization of the popup. 
First save the command so that later, it can be determined what initiated display 

of the popup. 


if ( cmd — CB_HOST I I cmd — CB_FLIGHT I I cmd — CB_RTS ) { 

save cmd * cmd; 


/* 

* 

*/ 


Based on the callback type, retrieve the appropriate data from shared memory. 


if ( cmd — CB_HOST ) 

h_list_hosts ( data_list ) ; 

else if ( cmd CB FLIGHT ) 

h_list_f light ( data_list ) ; 

else if ( cmd CB__RTS ) 

h list realtime_hosts ( data_list ); 


* Scan the list and create XmSt rings for placement in the selection box. Note that 

* (data list) includes a number of logical strings terminated by newlines. The 

★ physical strings is terminated by a newline. Note that the list is terminated by 

★ a NULL entry. 

*/ 

p - data_list; 
while ( *p ) ( 

sscanf ( p, "%s", temp ) ; 

list [ count ] * XmStringCreateLtoR ( temp, XmSTRING__ DEFAULT_CHARSET ) ; 

p +- strlen ( temp ) + 1; 

count++; 

} 

list [ count ] - NULL; 




Initialize the list, the number of items, and the callbacks for the OK and 
CANCEL pushbuttons. 


XtSetArg ( args [ 
XtSetArg ( args[ 
XtSetArg ( args [ 
XtSetArg ( args [ 


0 

i. 

XmNlist Items, 

list 

) ; 

1 

}, 

XmNlistltemCount, 

count 

) ; 

2 

i, 

XmNokCallback, 

cb_listl 

); 

3 

i, 

XmNcancelCallback, 

cb_list2 

) ; 


Create the popup and save the widget pointer for the selection text (it will be 
needed later to retrieve the value) . 


f_popup * XmCreateSelect ionDialog ( top, args, 4 ) ; 

t_popup - XmSelectionBoxGetChild ( f_ popup, XmD I ALOG__TEXT ) ; 
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/* 

Set the popup to be application modal. This will disable input to the main 
* window while the popup is displayed. 

*/ 



XtSetArg ( args [ 0 ], XmNmwmlnputMode, MWM_INPUT_AP PLICATION MODAL ); 
XtSetValues ( XtParent ( f^popup ), args, 1 ); 

XtManageChild ( popup ) ; 


/* 

* Otherwise, the callback came from the popped up window {OK or CANCEL pushbutton). 

* / 


} else { 


/* 

* 

★ 

★ 

* 

if 

*/ 


/* 

if 

*/ 


/* 

if 

it 


it 

*/ 


Retrieve the text from the selection widget. If the command was OK and if a 
string was specified, attempt to update the current host, flight, or realtime 
data host as indicated by the initial call to this function (Note that the 
set functions return a non-zero value if an illegal value is specified) If 
the call is successful, update the value in the main window text widget! 

P ■ get_text_widget ( t_popup ) ; 
if { cmd -« CB_OK 66 *p ) { 

if ( save_cmd — CB_HOST ) { 

if ( ( status - h_set___host < p ) ) 

upda t e_t e x t __w i dge t ( t_host, p ) ; 

) else if ( save_cmd ~ CB__FLIGHT ) { 

if ( { status - h_set_flight ( p ) ) 

update_text_widget ( t_f light, p ); 

) else if { save_cmd — CB_RTS ) { 

if ( ( status - h_set_realtime_host ( p ) ) 

upda t e_t ext_w i dge t ( t_rts, p ) ; 


If the update failed, output a warning message. 


if { status ) 

display_mes3age ( MSG_WARNING, "Cannot set to a non-existant value" ); 


— 0 ) 
— 0 ) 
— 0 ) 


In both cases (OK and CANCEL) free the memory allocated for the selection and 
then destroy the popup widget. Note that the widget is created and destroyed, 
as this is the only way it seemed to work. 


XtFree (p); 

XtDestroyWidget ( f _popup ) ; 


} 


} 
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********************************************************************************* 
# Makefile for HISDE user interface client h_help. * 

§M4#1HHHHHHHHHHHHHHHt*4****************************************************************** 


* 

# Define the target which this file is to create. 

# 

TARGET - h_help 

# 

# initialize include and library search paths to include current directory and the 

# HISDE directories. Note that the library path also includes the user interface 

# library. 

# 

BINDIR - /hisde/bin 

INCDIR * /hisde/src/include 

INCDIRS - -I. -1$ (INCDIR) 

# 

# Define the libraries to search. This includes the HISDE library, the local user 

# interface library, and all required X libraries. 

# 

LIBRARIES “ -lui -lhisde -lXm -lXt -lXt -1X11 


# 

# Define the compiler and linker flags. 

# 

CFLAGS - -O $ (INCDIRS) 

LDFLAGS - -O $ (EXTRAFLAGS ) 


* 

# Define all objects which make up this target. 

* 

OBJS -\ 

cbr_exit_com. o\ 
cbr_help . o\ 
h_help.o 

# 

# Define all header files required. 

# 


HDRS -\ 

$ (INCDIR) /h_help.h\ 

$ (INCDIR) /h_help.bit\ 
$ (INCDIR) /hisde.h 


* 

# Make the target . 

# 

all: $ (TARGET) 

$ (TARGET): $ (OBJS) 

$(CC) -O $0 $ (OBJS) $ (LIBRARIES) $ (LDFLAGS) 

Strip $ (TARGET) 

mv $ (TARGET) $ (BINDIR) 


$ (OBJS) : 


$ (HDRS) 
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* MODULE NAME AND FUNCTION: 

★ 


( h_help ) 


* 

★ 

★ 

★ 

★ 

* 

* 

* 

★ 

* 


The h_help client provides the user with the help window for the 
HISDE system. It allows the user to view a 'man' page for a selected 
topic . 

This client displays the help 'man' page in a scroll window which 
allows the user to view all informatin for the requested topic. 

The user may either specify the desired help topic on the command line 
with the -topic option, or enter it in the help window when h_help is 
executed. 


•k 

k 

* 

k 

k 

k 

k 

k 

k 

k 


* DESCRIPTION OF MAIN FUNCTION: 

* 


* 

* 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


This is the main driver for the h_help client of the HISDE system. It 
initializes the X Windows system and then creates the widgets 
necesssary for the h_help window. The window created contains 
a label for the help window, an exit command button, a topic input field, 
a clear button, and a scroll window for the display of the requested 
help. If the user did not specify a help topic on the command line, 
h_help will prompt the user for a topic in the h__help window. 

When a topic has been received from either the command line or user input, 
h_help will execute the man function on the topic and pipe the output 
into a temporary file. This temporary file will then be displayed in 
a scroll window. The user will be allowed to scroll through the information 
until he requests to exit the h_help client by selecting the exit command 
button or clears the information by selecting the clear command button. 


★ 

* 

k 

k 

* 

★ 

* 

* 

k 

k 

k 

k 

k 

k 

k 


* SPECIFICATION DOCUMENTS: 

k 
k 
k 
k 


/ hi sde / req/ requ i rement s 
/hisde /design /design 


* EXECUTION SEQUENCE: 

★ 


* 

k 

k 

k 

k 

k 

k 

k 

k 


h_help [-topic name] 

In addition to the X Windows options which may be used when 
running h_help, the following options are defined: 

-topic [name] - indicates the topic for which h_help will display 
the 'man' page. 


* EXTERNAL DATA USED: ('I' — Input 'O' — Output 'I/O' — Input /Output ) 

* This function initializes all declared widget variables. 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

* 


Nancy L. Martin - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 






★ 

* 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

★ 

k 

k 

k 


k 

k k k k j 
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# include <stdio.h> 

#include <X11/Intrinsic .h> 
♦include <Xll/StringDef s .h> 
♦include <X11/Cardinals . h> 
♦include <X11/Shell .h> 
♦include <Xll/MwmUtil .h> 
♦include <Xm/MainW.h> 
♦include <Xm/Form.h> 
♦include <Xm/RowColumn.h> 
♦include <Xm/DialogS .h> 
♦include <hisde.h> 

♦include <h_user_inter .h> 
♦include <h_help.h> 

♦include <h_help.bit> 




* Declare all external widgets to be used by the h_help application. 

* This is required for their use in the callback and action routines. 

*/ 

Widget top, m_main, mb — main, mp__file, form, 
t_topic, 

f popup, c_popup, t _j?opup; 

/* 

* Declare the callback procedures to be executed when a command button is selected. 
*/ 


extern XtCallbackProc cbr Jielp_terminate { ) , 

cbr_help 0; 


* Declare the update function to call if a topic was passed on the command line. 

* This function will also be called whenever a user leaves the input topic 

* text widget . 

*/ 

extern char *malloc () ; 


main ( argc, argv ) 
int argc; 

char **argv; 

{ 

/* 

* Declare the character string to contain the topic name passed in on 

* the command line, if one is specified. 

*/ 

static char *topic “ NULL, 

topic_ name[ 100 ] - 

/* 

* Declare the application-specific resources allowed by this client. The 

* resource which may be set is the interval desired for updating the scroll 

* window. 

*/ 


static XrmOptionDescRec options!] - { 

{"-topic", "Topic", XrmoptionSepArg, NULL } 

} ; 


static XtResource resources!] - { 
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{ "topic", "Topic", XtRString, sizeof (char *) , (Cardinal) &topic, NULL, 

(caddr_t) NULL ) 

) ; 

/* 

* Declare the different argument lists. 

*/ 

Arg icon_arg, 

args [ 1 ] ; 

/* 

* Initialize the callback lists required for the clear fields, exit client, and CM 

* manager commands functions. These callbacks occur when the user selects one of the 

* associated command widgets. 

*/ 




static XtCallbackRec cb_help[] • { 

{ (XtCallbackProc) cbr_help, (caddr_t) NULL }, 
{ (XtCallbackProc) NULL, (caddr_t) NULL ) 

) ; 


static XtCallbackRec cb_help_terminate ( ] - { 

{ (XtCallbackProc) cbr_help_terminate, (caddr_t) NULL ), 
{ (XtCallbackProc) NULL, (caddr_t)NULL ) 


/* 

* Initialize the X Windows system and create the top level widget for the 

* help screen. 

*/ 

top " Xtlnitialize ( HELP_SHELL, HELP_CLASS, options, Xt Number (options) , &argc, argv ); 

/* 

* If there were invalid arguments on the command line which could not be parsed, 

* call the function, bad syntax, to display the correct syntax and exit from 

* the client . 

*/ 


if ( argc > 1 ) 

bad_syntax ( "h_help [-topic name]" ); 


/* 

* Initialize the icon bitmap for this client. 
*/ 


Xt Set Arg ( icon_arg, XtNiconPixmap, 

XCreateBitmapFromData ( XtDisplay (top) , XtScreen (top) -> root, 
h_help_bits, h_help_width, h_help_height ) ); 

XtSet Values ( top, fiicon_arg, ONE ) ; 



XtGetApplicationResources ( top, (caddr_t) NULL, resources, XtNumber (resources) , 

NULL, ZERO ) ; 

if ( topic ) 

strcpy ( topic_name, topic ) ; 


/* 
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* Create 

*/ 


the main window widget and the menu bar which will contain all commands. 


mjmain - XmCreateMainWindow { top, NULL, 0 ); 

XtManageChild ( m_main ) ; 

mb_main - XmCreateMenuBar ( m_main, NULL, 0 ) ; 

XtManageChild ( mb_main ) ; 


/* 

* Create pulldown for file commands. 
*/ 


mp_file - XmCreatePulldownMenu ( mb_main, NULL, 0 ) ; 

create_cascade ( mb_main, mp_file, LABEL_FILE ) > 

cb help[ 0 ] .closure - (caddr_t) CB_NEW; 

create command ( mp_file, LABEL_NEW, cb_help ) ! 

create” command ( mp_file, LABEL_EXIT, cb_help_terminate >; 


/* 

* Create the main form. 

*/ 

form - create_f orm ( w_F_TOPIC_M, m_main ); 


/* 

★ Create the text field for the help display. 
*/ 


t_topic - create^ text ( W_T_TOPIC_M/ form, 1, XmMULTI_LINE_EDIT, 0 ); 


* Define the areas which constitute the main window widget. 
*/ 


XmMainWindowSet Areas ( m_ma i n , mb_main, NULL/ NULL/ NULL/ form ) ; 


* Create the dialog shell used for the popup. Note setting the MODAL flag on the 

* widget returned by (XmCreateDialogShell) does not work. Therefore we get the 

* parent of the form and set the value on it. 

*/ 


f popup m XmCreateFormDialog ( top/ W_F POPUP S/ NULL/ 0 ) ; 

XtSetArg ( args [ 0 ] / XmNmwmlnputMode/ MWM_INPUT_APPLICATION__MODAL ) ; 
XtSetValues { XtParent ( f _popup ), args r 1 ); 


/* 

* Create the label/ commands, and text widgets in the popup. 
*/ 


create_label ( W_L_POPUP_S, f_popup, "Enter Help Topic:" ); 
cb_help[ 0 ] .closure - (caddr_t ) CB_OK; 

c p opup * create_command ( W_C 1__P OP UP_S , f p opup , LABEL__OK, cb_help ) , 

cb_help[ 0 ] .closure * (caddr_t ) CB_CANCEL; 

create_command ( W_C2_POPUP_S, f_popup, LABEL_CANCEL, cbjielp ) ; 
cb__help[ 0 ] .closure - (caddr_t ) CB_HELP; 

create_command ( W_C3_POPUP_S, f_popup, LABEL_HELP, cb_help ) ; 

t_popup - create_text { W_T_POPUP_S, f_popup, topic_name, 0, XmSINGLE_LINE_EDIT, 1 ) 


/* 

★ 


Set argument on first command to indicate that it is the default. 
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XtSetArg ( args [ 0 ], XmNshowAsDefault, TRUE ); 

XtSet Values ( c_popup, args, 1 ) ; 

/* 

* Call XtRealizeWidget on the top level widget to display the h_help window. 

* If the user did not specify a topic then only the label, exit button, and 

* the topic name prompt will be displayed. Otherwise, the specified help 

* information will be displayed. 

*/ 

XtRealizeWidget ( top ) ; 

/* 

* Call get_topic() to display information if a topic was passed on the command 

* line. 

*/ 

if ( *topic_name ) 

cbr_help ( NULL, (caddr_t) CB_MAIN, NULL ); 

/* 

* Enter the Xtoolkit main loop to coordinate processing of all widget events. 

* If the topic prompt is displayed, then the get_topic function will be called 

* once the user has entered a topic. 

* 

* This loop is terminated when the user selects the exit command button and 

* the associated callback procedure is executed to terminate this client 
*/ 

XtMainLoop ( ) ; 

I 
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/a******************************** 

* MODULE NAME AND FUNCTION: cbr_ help_terminate 


* 


* This function is a callback procedure attached to the exit command button of the * 

* client. This function causes the client to terminate naturally when the user * 

* selects the exit button. 


★ 


* 


★ 

* SPECIFICATION DOCUMENTS : 

★ 

* /hisde/req/ requirements 

* /hisde/design/ design 


★ 


* 


* 

★ 

★ 

* 

* 

★ 

* 

★ 


EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input/Output) 

top (Widget) (I) - The top level form widget for the h_help client. 

ORIGINAL AUTHOR AND IDENTIFICATION: 


* 

* 

★ 

★ 

* 

* 

* 


* Nancy L. Martin - Software Engineering Section * 

* Data System Science and Technology Department * 

* Automation and Data Systems Division * 

* Southwest Research Institute * 

*****************************************************************************************/ 


♦include <X11/Intrinsic .h> 

♦include <h_help.h> 

/* 

* Declare the top level widget for the h_help client. 
*/ 

extern Widget top; 


cbr_help_terminate ( widget, closure, calldata ) 


Widget widget? /* Set to the widget which initiated this callback 

* function. 

*/ 


caddr_t closure, /* Callback specific data. This parameter is not 

* used by this function. 

*/ 

calldata; /* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 


{ 

/* 

* Remove the top level widget and then close the h_help display . 
*/ 


XtUnmapWidget ( top ) ; 
XCloseDisplay ( XtDisplay (top) ); 


/* 

* Remove the temporary help file created to display the requested information, 

* if there was one created. 

*/ 



unlink ( HELPFILE ) ; 
exit ( 0 ) ; 
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/*★**★** 

* MODULE 

* 


* 

* 

★ 

* 

★ 

★ 

★ 

* 

* 

★ 

★ 

★ 

★ 

★ 

★ 

★ 

* 

* 

* 

★ 

★ 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 

it 

* 

* 

* 

* 

★ 

★ 

it 

★ 

★ 

★ 

★ 

★ 

* 

* 
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*********************************** ********************** ***************** ******* 
NAME AND FUNCTION: cbr_help 

This is a callback function which is called if the user did not specify a help 
topic on the command line. This function displays a popup which allows the user 
to enter the topic. 

This function will create the command to run 'man' on the entered topic. The 
'sed' stream editor must be used to strip out all underline control characters. 
When the command is executed, a temporary help file containing the stripped 
'man' page will be created and displayed in a scroll window created for this 

purpose . 

The command created will be as follows with the input topic in the 
appropriate place: 

man [topic name] 2>/dev/null I sed -f /hisde/ . f ilter_man > /hisde/ . help_tmp 

This command will run 'man' on the entered topic name and pipe it to 

the stream editor, sed. 'sed' will then use the file, /hisde/ . filter man 

to strip out unwanted control sequences and then direct the output to 
the temporary help file, /hisde/ . he lp_tmp . 


SPECIFICATION DOCUMENTS: 

/hisde/ req/ requirements 
/hisde/design/design 

EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input /Output ) 

t_topic (char) (0) - The widget used to contain the help text. 

t_popup (Widget) (I) - The text widget containing the help topic string. 

f_popup (Widget) (I) - The form widget containing the popup fields. 

FILES USED AND APPLICATION DEFINED FORMATS: 

/hisde/ .filter_man - This file is used with the stream editor, sed, to strip 

out the escape sequences for underlining in the 'man' 
pages . This file contains one line with the following 
substitute command: 

s/_*H/ / g 


* 

i 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

it 

* 


This command means substitute nothing for an underline 
followed by a backspace in all lines . 


* ORIGINAL AUTHOR AND INDENT I FICAT ION : 


Nancy L. Martin 


Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 




* 

* 

* 

* 

a 

* 

* 

* 

it 

* 

* * ★ ★★ f 


♦include <stdio.h> 

♦include <X11/Intrinsic . h> 
♦include <hisde.h> 
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♦include <h_user_inter . h> 
♦include <h_help.h> 



/* 

* Declare the widgets which may be updated by this function. 

*/ 

extern Widget t_topic, t_popup, f_popup; 

/* 

* Declare the widget needed to create the file text widget used to 

* display the topic information. 

*/ 

extern char *malloc(); 


XtCallbackProc cbr_help ( widget, closure, calldata ) 


Widget widget; /* Set to the widget which initiated this callback 

* function. 

*/ 


caddr_t closure. 


calldata; 


{ 

static int in_j)opup - FALSE; 


/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 

/* Static variable used to indicate whether or not a 

* popup is displayed. 

*/ 


char *command, 


*topic_ name; 


/* The pointer to the character string which will 
* contain command to execute. 

*/ 

/* Used to contain the help topic entered by the user 


/* 

* If not in popup and if not called from main (called from menu) , set popup to 

* TRUE and display the popup. 

*/ 


if ( in_popup -- FALSE (int) closure !- CB_MAIN ) ( 

in__popup - TRUE; 

XtManageChild ( f_popup ) ; 


/* 

* Otherwise, remove the popup if displayed (it will not be in the call from 

* the main function. 

*/ 


} else ( 

if ( in_popup ) { 

XtUnmanageChild ( f_popup ) ; 
in_ popup * FALSE; 

) 

/* 

★ 


If the command was from main or the OK from popup, get the string from the 
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popup text widget . Note that the string is placed in the text widget if 
passed on the command line. 


*/ 


if ( ( (int) closure -- CB_MAIN II (int)closure -- CB_OK ) 44 

< topic_name - get_text_widget ( t_popup ) ) ) 

★ 

* Attempt to malloc memory for the help command. If this fails, output a 

* message . 

*/ 

if ( (command - malloc (strlen (MAN_FILTER_COMMAND) + strlen (topic_name) 

+ strlen (HELPFILE) ) ) -- NULL ) 

display_message ( MSG_ERROR, "Cannot malloc for command string" ) ; 

* 

* Otherwise format and execute the command. When complete free all memory 

* allocated and update the text widget with the help text. Note that if the 

* 'man' call fails, the message will be displayed in the text widget. 

*/ 


else { 

sprintf ( command, MAN_FILTER_COMMAND, topic_name, HELPFILE ) ; 
system ( command ) ; 

free ( command ) ; 

XtFree ( topic_name ) ; 

clear_text_widget ( t_topic ) ; 
load_text_widget ( HELPFILE, t_topic, 0 ) ; 

} 


) 


} 
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###################*#####################################t### ################### , ^7######7 

# Makefile for HISDE user interface client h_login. 

##############*######*################################# ################################## 



# 

# Define the target which this file is to create. 

# 


TARGET - h_login 

# 

# Initialize include and library search paths to include current directory and the 

# HISDE directories. Note that the library path also includes the user interface 

# library. 

# 

BINDIR - /hisde/bin 

INCDIR - /hisde/src/include 

INCDIRS - -I. -1$ (INCDIR) 

# 

# Define the libraries to search. This includes the HISDE library, the local user 

# interface library, and all required X libraries. 

# 


LIBRARIES - -lui -lhisde -IXm -lXt -1X11 $ (EXTRALIB) 

# 

# Define the compiler and linker flags. 

# 

CFLAGS - -0 $ (INCDIRS) 

LD FLAGS - -0 $ (EXTRAFLAGS) 

# 

# Define all objects which make up this target. 

# 

OBJS -\ 

cbr_help_com. o\ 
cbr_sel_com. o\ 
cbr_ent_com. o\ 
cbr_f ile_com. o\ 
h_log_amodes . o\ 
h_log_verify ,o\ 
h_login . o 

# 

# Define all header files required. 

# 

HDRS -\ 

$ (INCDIR) /h_login.h\ 

$ (INCDIR) /hisde.h 

# 

# Make the target . 

* 

all: $ (TARGET) 

$ (TARGET): $ (OBJS ) 

$(CC) -o $@ $ (OBJS ) $ (LIBRARIES) $ (LDFLAGS) 
strip $ (TARGET) 




IS 

ill 

mv $ (TARGET) 


$ (BINDIR) 
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$ (OBJS) : 


$ (HDRS) 
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* MODULE NAME AND FUNCTION: ( h_login ) 

* 



The h_login client provides the user with the login screen for the HISDE 
system. It allows the user to enter the user name, the password, the 
default host, the flight number, the classification, the mode of access 
and the name of the initialization file to be used. It also provides the 
user with a command button for each input which has an associated list 
of options - active flight numbers, available hosts/workstations, and 
initialization files. When a command button is selected, a list will 
pop-up from which the user may cut and paste his selection into the input 
field. When the command button is selected again, the list will be 
popped-down. If the user enters an invalid selection, a message will 
appear in the message window at the bottom of the form, informing the 
user that the input is invalid. This client will also provide a command 
button for 'help' which when selected will give the user information on 
how to log into the HISDE system. 


* DESCRIPTION OF MAIN FUNCTION: 

★ 


This is the main driver for the h_login client of the HISDE system, it 
will initialize the X Windows system and then create the widgets 
necesssary for the h_login screen. The screen which is created contains 
a label for the login screen, a command button for help, labels and text 
input fields for each piece of information which may be entered by the 
user, command buttons for listing valid selections for some of the input 
fields, pop-up windows containing the lists of valid selections, 
and a message window for the display of information to the user. 


* 


★ 

* 

* 

* 


* 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

★ 

★ 

* 

* 

* 

* 

* 

* 

* 


* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/requirements 

* /hisde /design /design 


★ 

★ 


* EXECUTION SEQUENCE: 

* 

* h_login 

★ 


* 

* FILES USED AND APPLICATION DEFINED FORMATS: 

* 

* user-defined initialization file - 

* used by this application to initialize the workstation 

* for the current user. 

* 

* 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

* 


* 

t 

★ 

* 

* 

* 

★ 

A 

* 

* 

* 

★ 

★ 

* 

* 


★ 

★ 

* 

★ 


Nancy L. Martin - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 


* 

it 

it 

it 




♦include <stdio.h> 

♦include <X11/ Intrinsic . h> 
♦include <Xll/StringDef s . h> 
♦include <X11/Cardinals . h> 
♦include <X11/Shell . h> 
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♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<Xll/MwmUtil.h> 
<Xm/MainW. h> 
<Xm/RowColumn . h> 
<Xm/Text .h> 
<Xm/List . h> 
<Xm/FileSB.h> 
<hisde . h> 
<h_user_inter . h> 
<h_login . h> 


* Declare all external widgets to be used by the h_login application . 

* This is recjuired for their use in the callback and actxon routines . 

*/ 

Widget top, m_main, mb_main, mp_file, form, widget, f_popup, 
amode_ txt , 
class_txt , 
f light_txt , 
host_txt , 
if ile_txt , 
pass_txt , 
term_txt , 
user_txt, 

3 l_ modes, sl_f lights, sl_hosts; 

/* 

* Declare the callback procedures to be executed when a command button is selected 

*/ 

extern XtCallbackProc enter_command (), 

help_command (), 
select_command ( ) , 
file command {); 


main ( argc, argv ) 
int argc; 

char **argv; 

{ 

/* 

* Declare the callback list array to be used when creating command widgets. 

* This array will contain the routines to be executed when the associated 

* command button is selected. 

*/ 

static XtCallbackRec command_callbacks [] - { 

{ (XtCallbackProc) NULL, (caddr_t ) NULL }, 

{ (XtCallbackProc) NULL, (caddr_t ) NULL } 

} ; 

static XtCallbackRec command_callbacksl [ ) - { 

{ (XtCallbackProc) NULL, <caddr_t ) NULL }, 

{ (XtCallbackProc) NULL, (caddr_t) NULL } 

} ; 

/* 

* Define buffers for display and list data which will be presented in fields. 
*/ 

list_hosts [ SIZE_HOST_LIST + 1 ] , 

list_f lights [ SIZE_FLIGHT_LIST + 1 ], 
classification! SIZE_CLASS + 1 ] t 


char 
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list modes [ 50 


] ; 



Arg args[ 2 ]; /* Argument list used to initialize various 

* widget resources . 

*/ 


/* 

* Initialize the message queue used by the advisory system. 

*/ 

if ( h_advisory_initialize () !- 0 ) { 

fprintf ( stderr, "h_login: Cannot initialize system resources . \n" ); 

exit (-1) ; 

} 

/* 

* Retreive the current classification mode. 

V 

if ( h_get_class ( classification ) < 0 ) { 

fprintf ( stderr, "h_login: Cannot get classification. \n" ); 

exit (-1) ; 

> 

/* 

* Initialize the X Windows system and create the top level widget for the login 

* screen. 

*/ 


top - Xtlnitialize ( LOGIN_SHELL, LOGIN_CLASS, NULL, 0, iargc, argv ) ; 

/* 

* Create the main window widget and the menu bar which will contain all commands . 
*/ 


m_main — XmCreateMainWindow ( top, NULL, 0 ) ; 

XtManageChild ( m_main ) ; 

mb_main - XmCreateMenuBar ( m_main, NULL, 0 ) ; 

XtManageChild ( mb_main ) ; 


/* 

* Create pulldown for file commands. 
*/ 


n^5_f ile - XmCreatePulldownMenu ( mb_ma in , NULL, 0 ); 

create_cascade ( mb_main, mp_file, LABEL_FILE ) ; 

command_callbacks [ 0 ] .callback - (XtCallbackProc)enter_command; 
create_command ( mp_file, LABEL_LOGIN, command_callbacks ); 

I* 

* Create the help cascade. 

V 

widget - create_cascade ( mb_main, NULL, LABEL_HELP ) ; 
command_callbacks [ 0 ] .callback - (XtCallbackProc) help_command; 
XtAddCallbacks ( widget, XmNactivateCallback, command_callbacks ) ; 

XtSetArg ( args[ 0 ], XmNmenuHelpWidget, widget ); 

XtSetValues ( mb_main, args, 1 ) ; 


/* 

* Create the main form. 




* Create the label which identifies the client. This is unique, as no window manager 

* is running during login. 

*/ 


create label ( W_L_LOGIN, form, LABEL_ID ); 


7 * ah labels and text widgets needed for the eight entry fields. The fields 

* will be arranged (via defaults) in two columns with required on the left and °P^iona 

* right. Not. that the initialization file field he. . contend which causes 

* display of a file selection widget (via the f ile_command callbac > . 

*/ 


create_label ( W_L_U S ERN AME , 
user_txt - create_text ( W_T_USERNAME, 
XmAddTabGroup ( user_txt ) ; 

create_label ( W_L_P AS SWORD, 
pass_txt - create_text ( W_T_PASSWORD, 
XmAddTabGroup ( pass_txt ) ; 

create_label ( W_L_MODE, 
amode_txt - create_text ( W_T_MODE, 
XmAddTabGroup ( amode_txt ) ; 

create_label ( W_L_F L I GHT , 
£light_txt - create_text ( W_T_FLIGHT, 
XmAddTabGroup ( flight_txt ) ; 

create_label ( W_L_CLASS, 
class txt “ create_text ( W_T_CLASS, 

- XmSINGLE_LINE 

XmAddTabGroup ( class_txt ) ; 


form, LABEL_USERNAME ) ; 

form, 0, XmS INGLE LINE EDIT, 1 ) ; 


form, LABE L_P AS SWORD ) ; 

form, 0, XmS INGLE_L INE_ED IT, 1 ) ; 


form, LABEL_MODE ) ; 

form, 0, XmS INGLE_L INE_ED IT, 1 ) ; 


form, LABEL_FLIGHT ) ; 

form, 0, XmSINGLE_LINE_EDIT, 1 ); 


form, LABEL_CLAS S ) , 

form, classification, 0, 
EDIT, 1 ) ; 


create_label ( W_L_HOST, 
host_txt “ create_text ( W_T_HOST, 
XmAddTabGroup ( host_txt ) ; 


form, LABEL_HOST ) ; 

form, 0, XmS INGLE LINE EDIT, 1 ) : 


command callbacks [ 0 ] .callback - (XtCallbackProc) 
command callbacks [ 0 ] .closure - (caddr_t) CB_NEW; 

create command ( W_L_INITFILE, form. 


f ile_command; 
LABEL FILE, 


command callbacks ) 


ifile_txt - create_text ( W_T_INITFILE, 
XmAddTabGroup ( ifile_txt ) ; 

create_label ( W_L_TERMINAL, 
term_txt - create_text ( W_T_TERMINAL, 
XmAddTabGroup ( term_txt ) ; 


form, 0, XmS INGLE_L INE_ED IT , 1 ) ; 

form, LABEL_TERMINAL ) ; 

form, 0, XmS INGLE_LINE_ED IT , 1 ) ; 


/ * 

* Initialize the labels which identify the four scrolled lists 
*/ 


c reate la be 1 ( W_L_LISTMODES, 

create“label ( W_L_LISTFLIGHTS , 

create label ( W L LISTHOSTS, 

create label ( W_L_LISTFILES, 


form, LABEL_LIST_MODES ) i 
form, LABEL_LIST_FLIGHTS ) ; 
form, LABEL_LIST_HOSTS ) ; 
form, LABEL_LIST_FILES ) i 


/* 



Create the scrolled lists, 
an entry in a list . 
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Each has a callback initialized to process 



command_callbacks [ 0 ] .callback - (XtCallbackProc) select command; 
command_callbacks [ 0 ] .closure - (caddr_t) CB_SELECT MODE; 

XtSetArg < args [ 0 ], XmNbrowseSelectionCallback, command callbacks ); 

XtManageChild ( sl_modes - XmCreateScrolledList ( form, W_S_LISTMODES, args, l ) ) 


command_callbacks ( 0 ] .callback » (XtCallbackProc) select command; 
command_callbacks [ 0 ] .closure » (caddr_t) CB_SELECT FLIGHT; 

XtSetArg (args ( 0 ], XmNbrowseSelectionCallback, command callbacks ); 

XtManageChild ( sl_flights - XmCreateScrolledList ( form,~w_S_LISTFLIGHTS, args, l ) , 


command_callbacks [ 0 ] .callback - (XtCallbackProc) select command; 
command_callbacks [ 0 ] .closure - (caddr_t ) CB_SELECT HOST; 

? J' XmNbrowseSelection CaHback, coSimand_callback3 ); 
XtManageChild ( sl_hosts - XmCreateScrolledList ( form, W_S_LISTHOSTS, 


args, 1 ) ) 


the available modes, flights, and hosts. 


h_list_amodes ( list_modes ) ; 
h_list_f light ( list_flights ) ; 
h_list_hosts ( list_hosts ) ; 


Transfer the data in the buffers to the selection list widgets. 

i n ih_list ( sl_modes, list_modes ) ; 

< sl_flights, list_f lights ) ; 

i n i t li*t ( si hosts, list hosts ) ; 


Create the popup file selection widget, 
and CANCEL pushbuttons 


This includes attaching callbacks to the OK 


command_callbacks [ 0 
command_callbacks ( 0 
XtSetArg ( args [ 0 ] , 
command_callbacksl [ 0 
command_callbacksl ( 0 

XtSetArg ( args [ 1 ] , 


] .callback - (XtCallbackProc) file_command; 
] .closure - (caddr_t) CB_OK; 

XmNokCa 1 lback , command_callbacks ) ; 

]. callback • (XtCallbackProc) file_command; 
] .closure - (caddr_t ) CB_CANCEL; 
XmNcancelCallback, command_callbacksl ) ; 


f_popup - XmCreateFileSelectionDialog ( top, args, 2 


) ; 


XtSetArg ( args [ 0 ] , 
XtSetValues ( XtParent 


XmNmwmlnputMode , MWM_INPUT_APPLICATION MODAL 
( f_popup ) , args, 1 ) ; 


) ; 


Call XtRealizeWidget on the top level widget to display the h login screen 

^ hS x ^ MainLo °P routine to process events and actions. This client 


XtRealizeWidget ( top ) ; 
XtMainLoop ( ) ; 
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* MODULE NAME AND FUNCTION: h_log_amodes 




* 

★ 

★ 

* 

* 

★ 

★ 

* 

★ 

★ 

★ 

* 


This function sets up the list of available access modes for the HISDE * 

system. This system has three access modes defined: * 

* 

Development - Used to develop the software for a mission. * 

Simulation - Used to simulate a mission flight and test the * 

developed software. * 

Flight - Used for execution of the approved software during * 


an actual flight. This mode has a restricted filesystem. * 

★ 

This list is used in a popup window to give the user the available access modes. * 

★ 

•k 


* SPECIFICATION DOCUMENTS: 

★ 

* /hisde/req/requirements 

* /hisde /design/design 


* ORIGINAL AUTHOR AND INDENT IF ICAT ION : 

★ 


Nancy L. Martin 


Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 






♦include <stdio.h> 
♦include <hisde.h> 


h_list_amod es ( amodes ) 

char * amodes; /* A pointer which will be updated with the list of 

* access modes. 

*/ 

{ 

/* 

* Set up the list of access modes. The constants: DEVELOPMENT , SIMULATION, and 

* FLIGHT, are located in the hisde. h include file. Each mode is separated by 

* a newline for parsing purposes. 

*/ 

sprintf ( amodes, "%3\n%s\n%s", DEVELOPMENT, SIMULATION, FLIGHT ); 

} 
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/*******★****★* a***************************************************************** 

* MODULE NAME AND FUNCTION: help_command 

This is a callback function executed whenever the user selects the HELP 
command button. Since help is not available for login yet, a message is 
displayed informing the user of this . 



★ 

* 

* 

★ 

* 


* SPECIFICATION DOCUMENTS: 

* 

★ /hisde/ req/ requirements 

★ /hisde/design/ design 


* ORIGINAL AUTHOR AND INDENT IF ICAT ION : 


* 

* 

* 

★ 


Nancy L. Martin - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 




♦include <stdio.h> 

♦include <X11/Intrinsic .h> 
♦include <hisde.h> 


help_command ( widget. 
Widget widget; 


closure, calldata ) 

/* set to the widget which initiated this callback 
* function. 

*/ 


caddr_t closure, /* Callback specific data. This parameter will be 

* be set to a value which identifies the selected 

* command. 

*/ 

calldata; /* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 

display_message ( MSG_WARNING, "There is no help available at this time." ); 

} 
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This function is called to verify that all of the user's inputs are valid. 


/********* a*******************************************************************^^^^^^ 

* MODULE NAME AND FUNCTION: verif y_login_parms * 

★ 

★ 

★ 

* SPECIFICATION DOCUMENTS: 

★ 

* /hisde/req/ requirements 

* /hisde/design/design 

* 

★ 

Input 'O' 


* EXTERNAL DATA USED: ('I 

* 


Output 'I/O' - Input/Output) 


*"■ 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 


(Widget) (I) - Text widget for the username field. Needed to retrieve * 
current value. 


* user_txt 

* 

* 

★ 

* 
it 
★ 

* 

★ 

★ 

★ 

★ 

* 

* 

* ORIGINAL AUTHOR AND INDENTIFICATION : 

★ 

* Nancy L. Martin - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 
*************************************************** ^^^^^^^^^^^^^^^ 


pass_txt (Widget) (I) - Text widget for the password field. 

amode_txt (Widget) (I) - Text widget for the mode field. 

flight_txt (Widget) (I) - Text widget for the flight field. 

host_txt (Widget) (I) - Text widget for the host field, 

if ile_txt (Widget) (I) - Text widget for the initialization field. 


it 

it 

■k 

a 

* 

* 

* 

* 

* 

* 

it 

it 

if 

* 

it 

t 

* 

* 

it 




♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio.h> 

<X1 1/ Intrinsic .h> 
<X11/Cardinals . h> 
chisde .h> 
<h_user_inter . h> 
<h_login.h> 


* Declare the text widget needed to retrieve the current values. 

*/ 

extern Widget user_txt, pass_txt, amode_txt, flight_txt, host_txt, ifile txt; 


verify_login_parms ( ) 

{ 

int login_err - ZERO; 


/*The flag used to indicate that there are fields 
* in error and an message needs to be displayed. 


char error_message [MAX_MESSAGE_LENGTH] , 

/* The message being built to indicate which 
* fields are in error. 

*/ 

*username, /* Set to the value of the current username. 

*/ 

r /* Set to the value of the current mode. 


*mode 
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*/ 

★string; /* Temporary variable used to point to the data 

* currently being evaluated. 

*/ 

★ Initialize the error message string with the lead-in for the list of 

* invalid fields. 

*/ 




strcpy ( error_message, "Cannot login. The following fields are invalid: " ); 


* Check if the username and password combination is valid. If it is not, 

* concatenate USER onto the error message and set the error flag. 

*/ 


username - get_text_widget ( user_txt ) ; 
string - get_text_widget ( pass — txt ) ; 
if ( h__ set_username ( username, string ) < 0 ) { 

strcat ( error_message, " [ User ]" ); 
login_err - ONE; 

} 

XtFree { string ) ; 


/* 

* Check for a valid flight number if the selected access mode is either 

* simulation (S) or flight (F) . If the flight number is invalid, 

* concatenate FLIGHT onto the error message and set the error flag. 

*/ 


mode - get_text_widget ( amode_txt ) ; 
string • get_text_widget ( flight_txt ) ; 
if ( ( *mode — 'S' ) II ( *mode -- 'F' ) ) { 
if ( h_set_flight ( string ) < 0 ) { 

strcat ( error_message, " [ Flight ]" 
login_err - ONE; 

} 

} 

XtFree ( string ) ; 


) ; 


/* 

* If a host name was entered, check for it being valid. If it is invalid, 

* concatenate HOST onto the error message and set the error flag. 

*/ 


string - get_text_widget ( host_txt ) ; 
if (^string ) { 

if ( h_set_host ( string ) < 0 ) ( 

strcat ( error_message, " [ Host ]" ); 
login_err - ONE; 

} 

) 

XtFree ( string ) ; 


/* 

* Check if the entered access mode is valid. If it is not, concatenate, 

* concatenate ACCESS MODE onto the error message and set the error flag. 
*/ 


if { h_set_mode ( mode ) < 0 ) { 

strcat ( error_message, " [ Access Mode ]" ); 
login_err - ONE; 


} 




XtFree ( string ) 
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If an initialization file was entered, check that it is valid. If it is 
not, concatenate INITIALIZATION FILE onto the error message and set the 
error flag. 


string - get_text_widget ( ifile_txt ) ; 
if ( *string ) { 

if ( h_check — init ( username, string ) < 0 ) { 

strcat ( error_message, " [ Initialization File ] ,f ); 
login_err * ONE; 

) 

) 

XtFree ( string ) ; 


If any of the entered fields were in error, call update_status to display 
the created error message in the status message window. 


if ( login_err — ONE ) 

display_message ( MSG_ERROR, error_message ) ; 


Return the error flag to indicate whether the HISDE system may be started 
up. 


return ( login_err ) ; 
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/ 




enter command 


* MODULE NAME AND FUNCTION: _ 

This is the callback function which is executed when the ENTER command button 
is selected. This function will verify the user's inputs and then clear the 
screen of the login window. After the login form and popups have been 
removed, the HISDE system is started up. This program spawns a child which 
will initiate the user's login and spawn another child process which 
overlays the current process with the HISDE startup program. The parent 
process will go into a wait state waiting for the child to die. When the 
child dies (logout selected by the user), the child processes will die and 
the parent process will kill all processes invoked during the login process, 
as well as any additional process invoked by the user. This client will 
then exit to insure that the system is completely reinitialized. 


* SPECIFICATION DOCUMENTS : 


/hisde/req/ requirements 
/hisde/design/design 


* 
it 
it 

* EXTERNAL DATA USED: ('I' - Input '0' - Output 'I/O' - Input/Output) 

* 

* top (Widget) (I) - The top level widget for the h_login client. 

* 

* ORIGINAL AUTHOR AND INDENT IF I CAT I ON : 

* 

* Nancy L. Martin - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 
************************************************************************************* 


* 

it 

it 

it 

it 

★ 

* 

★ 

* 

it 

* 

it 

it 

it 

it it it it j 


♦include <stdio.h> 

♦include <X11/Intrinsic . h> 
♦include <X11/Shell .h> 
♦include <signal.h> 
♦include <hisde.h> 

♦include <h_user_inter .h> 
♦include <h_login.h> 


/* 

* Declare the top level shell widget. 
*/ 

extern Widget top, ifile_txt; 


enter_ command < widget, 
Widget widget; 


closure, calldata ) 

/* get to the widget which initiated this callback 
* function. 

*/ 


caddr t closure, /* Callback specific data. This parameter will be 

* be set to a value which identifies the selected 

* command. 

*/ 

/ * specifies any callback-specific data the widget 

* needs to pass to the client . This parameter is 

* is not used by this function. 


calldata; 
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*/ 


int process_id; 


/* 

*/ 


The id of the process spawned by a parent. 


char *file; 


/* Will point to the initialization file entered 
* by the user. 

*/ 


Save the initialization filename. 


file - get_text_widget ( if ile_txt ) ; 


Verify all entered login parameters. If all parameters are valid, unmap the top 
level widget {and all children) and flush the X buffer. 


if ( verify_login_parms ( ) — 0 ) { 
XtUnmapWidget (top) ; 

XFlush { XtDisplay ( top ) ) ; 


Spawn off a child process to initiate the users login. The parent process 
goes into a wait state waiting for the child to die (which occurs when the 
logout client is selected by the user) . 


if ( { processed - fork() ) — 0 ) 

In the child process of the login client, the HISDE startup program 
should be run as well as the HISDE logout client. 

if { fork() — 0 ) { 


In the grandchild of the HISDE login client, overlay the current 
process with the HISDE startup program. If the user specified an 
initialization file during the login process, pass it as a 
parameter to the HISDE startup program. 


if ( *file ) { 

execl { HISDE_STARTUP, HISDE_STARTUP, file, NULL ) ; 
exit (-1); 

} else { 

execl ( HISDE_STARTUP, HISDE_STARTUP, NULL ); 
exit (-1); 

} 


Execute the HISDE logout client. When the client terminates (only 
when the user selects the widget) , exit the process (which will 
then cause the parent process to terminate all siblings. 


) else { 

system { EXIT_HISDE ) ; 
exit ( 0 ) ; 
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else 

while ( wait ( 0 ) !- processed ); 


* Send out a SIGKILL to all process associated with the current process group 

* The command will kill all processes invoked during the login process plus 

* any additional processes invoked by the user. 

*/ 

kill ( 0, SIGKILL >; 

/* 

* Exit the login client, exit is utilized to assure that the system xs 

* completely and accurately reinitialized (this is as opposed to a large 

* loop in the login client which continually executes) . 

*/ 

exit ( 0 ) ; 

> 

} 
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* MODULE NAME AND FUNCTION: if ile_command 

* 


This is a callback function executed when the user selects the command button 
associated with the initialization file input field. This function will 
check if a list of initialization files is already popped up. If the list 
is already displayed, it is popped down. Otherwise, this routine will check 
for a valid user and access mode before calling the function, h_list_directory, 
to get the list of initialization files for this user. When h_list_directory 
returns, the list of files is updated and popped up. 


If there is not a valid username or access mode, a message will be 
a valid username or access mode, a message will be displayed informing the 
user that no files can be listed until these fields are entered. 


* 


* SPECIFICATION DOCUMENTS: 

★ 

* /hisde/req/ requirements 

* /hisde/design/design 


* 


★ 

* 

* 

* 

★ 

★ 

★ 

★ 

★ 

* 

★ 

* 

★ 


EXTERNAL DATA 

USED: ('I' 

- 

f_popup 

(Widget) 

(X) 

user_txt 

(Widget) 

(I) 

pass_txt 

(Widget) 

(I) 

amode_txt 

(Widget) 

(I) 

if ile_txt 

(Widget) 

(I) 


Input 'O' - Output 'I/O' - Input/Output) 

“ file selection widget. Needed to display/ remove popup. 

- Text widget for the username field. Needed to retrieve 
current value. 

- Text widget for the password field. 

- Text widget for the mode field. 

- Text widget for the initialization file field. 


★ 

* ORIGINAL AUTHOR AND INDENTIFICATION : 

* 


* 


Nancy L. Martin - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 




♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<unistd.h> 
<sys/file .h> 
<pwd.h> 

<X11/Intrinsic.h> 
<X11/ Shell . h> 
<Xm/FileSB.h> 
<hisde .h> 
<h_U3er_inter . h> 
<h_login.h> 


extern Widget f _popup, user_txt, pass_txt, amode_txt, ifile txt; 


file_ command ( widget , closure , calldata ) 

Widget widget; /* Set to the widget which initiated this callback 

* function. 




caddr t closure. 


calldata; 


XmString filter; 
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*/ 

/* Callback specific data. This parameter will be 

* be set to a value which identifies the selected 

* command. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client . This parameter is 

* is not used by this function. 

*/ 

/ ★ will point to compound string formatted from the 

* directory. 

*/ 



Arg args [ 1 ] ; 


struct passwd *passwd — ptr; 


/* Argument list used to set the directory on the 

* the file selection widget. 

*/ 

/* Structure used to contain user information (for 

* home directory. 

*/ 


char 


temp [ S I ZE_F I LENAME ], 

*f ile, 

*mode, 

*password, 

* username; 


/* Temporary string used to format the users home 

* directory, the location of the startup files, and 

* the mask. 

*/ 

/* Will point to string entered in the file selec- 

* tion text widget. 

*/ 

/* Will point to currently entered mode. 

*/ 

/* will point to currently entered password. 

*/ 

/★ will point to currently entered username. 

*/ 


If called from the main window, first retrieve the contents of the mode and username 
text widgets. 


if ( (int) closure " CB_ NEW ) { 

username * get^text — widget ( user_txt ) ; 
password * get_text_ widget ( pass_txt ) § 
mode - get_text_widget ( amode_txt ) ; 


Verify that a valid username and password have been entered. If not, return 


if ( h_set_username < username, password ) I I h_set_mode ( mode ) ) { 

display_message ( MSG__WARNING, "Username/password/mode must be entered" ) ; 
XtFree ( username ) ; 

XtFree ( password ) ; 

XtFree ( mode ) ; 

return; 

} 


Free space allocated for password and mode. 


XtFree ( password ) ; 



XtFree ( mode 
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) ; 


/* 

Retrieve a pointer to the user's password entry (to get home directory) . if this 

* fails, return. 

*/ 

if ( ( passwd_ptr - getpwnam ( username ) ) -- NULL ) { 

display_message ( MSG_ERROR, "Unable to determine user' s home directory" ) ; 
XtFree ( username ); ' * 

» 

/* 

* Format the user's home directory (with .hisde subdirectory and mask) and create 

* a compound string. 

*/ 

sprintf ( temp, "%s/%s/*", passwd_ptr->pw_dir, H ISDE_STARTUP_F I LES ); 
filter - XmStringLtoRCreate ( temp, XmSTRING_DEFAULT_CHARSET ) ; 

/* 

* Set the file selection widget directory mask argument and display the widget. 


XtSetArg ( args { 0 J, XmNdirMask, filter ); 

XtSetValues ( f_popup, args, 1 ) ; 

XtManageChild ( f_popup ) ; 

XtFree ( username ) ; 

/* 

* Otherwise, the callback originated from the popup. So first remove the popup 
*/ 


} else { 

XtUnmanageChild ( f_popup ) ; 


If callback is from OK, get the widget for the selection text and use to re- 
trieve the selection. If a selection was entered, use it to update the main 
text field. Note that if the callback was from CANCEL, no action takes place. 


if ( (int) closure — CB_OK ) ( 

widget “ XmFileSelectionBoxGetChild ( f popup, XmDIALOG TEXT ) ; 
if ( file - get_text_widget ( widget ) ) ~ 

update_text_widget ( ifile txt, file ) ; 

XtFree ( file ) ; 


} 


} 
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MODULE NAME AND FUNCTION: select_command * 


* 

* 


t>h«. rollback is executed when the user selects a string from either the modes, 
flight « £oa?a lists. It will .aromatically updates the correspohdrng text 

widget . 


* SPECIFICATION DOCUMENTS: 


/hisde/ req/ requirements 
/hisde/design/design 

EXTERNAL DATA USED: ('I' - Input '0' -Output 'I/O' - Input/Output) 

flight txt (Widget) (O) - Text widget for the flight field Used to update the 

current value if one was selected from list . 

host_txt (Widget) (O) - Text widget for the host field. 

amode_txt (Widget) (0) - Text widget for the mode field. 


* ORIGINAL AUTHOR AND INDENT IF ICAT ION : 


Mark D. Collier - 


Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 


* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 

* 

★ 

★ 

* 

* 

★ 

* 

A 

* 

it 

★ 

it 


it OVJU. LitWtJO V- — — ***★★★★★★★★**★*★************/ 


♦include <stdio.h> 

♦include <X11/Intrinsic .h> 
♦include <Xm/List.h> 
♦include <hisde.h> 

♦include <h_login.h> 


extern Widget amode_txt, 
f light_ txt, 
host txt; 


select command ( widget , 


closure, calldata ) 


Widget widget ; 


caddr t closure, 


calldata; 


/* Set to the widget which initiated this callback 

* function. 

*/ 

/* Callback specific data. This parameter will be 

* be set to a value which identifies the selected 

* command. 

* / 

/* specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 


( 

XmListCallbackStruct 


/* Structure type returned by the (calldata) 

* parameter. The selection text will be retrieved 

* from it. 

*/ 




char *p; 
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/* Updated to point to the actual text 
*/ 


selection 


Set (ptr) to the structure pointer passed in (calldata) . 
ptr - (XmListCallbackStruct *) calldata; 


th ® a °tual string from the compound string in the returned structure. If 
this function fails f generate a message and. return. 


if 

} 


( XmStringGetLtoR ( ptr->item, XmSTRING_DEFAULT_CHARSET, 4p ) — FALSE ) 
display_message ( MSG_ERROR, "Could not convert selection strina" ) • 
return; 


{ 


Based on which list generated the callback, 


update the appropriate text widget. 


( (int) closure -- CB_SELECT_MODE 

update_text_widget ( amode_txt, p ) ; 
else if ( (int) closure — CB_SELECT_FLIGHT 
update_text_widget ( f light_txt, p ) ; 
else if ( (int) closure -- CB_SELECT_HOST 
update_text_widget ( host_txt, ~ p ) ; 


) 

) 

) 
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############################*#*#*#*******#* # * ############################################# 

# Makefile for HISDE user interface client (h_logout) . * 

****************************************************************************************** 


* 

* Define the target which this file is to create. 

* 

TARGET - h_logout 

# initialize include and library search paths to include current directory and the 

# HISDE directories. Note that the library path also includes the user interface 

# library. 

# 

BINDIR - /hisde/bin 

INCDIR m /hisde/src/include 

INCDIRS - -I. -1$ (INCDIR) 

# 

* Define the libraries to search. This includes the HISDE library, the local user 

* interface library, and all required X libraries. 

* 

LIBRARIES - -lui -lhisde -lXm -lXt -1X11 


* 

# Define the compiler and linker flags. 

* 

CFLAGS - -O $ (INCDIRS) 

LD FLAGS - -0 $ (EXTRAFLAGS) 


* 

# Define all objects which make up this target. 

* 


OBJS 


-\ 

cbr_log_t rm . o \ 
h_logout . o 


* 

# Define all header files required. 

* 

HDRS -\ 

$ ( INCDIR) /h_user_inter . h\ 
$ ( INCDIR) /h_logout . h\ 

$ (INCDIR) /h_logout .bit 

* 

# Make the target . 

* 

all: $ (TARGET) 


$ (TARGET): $ (OBJS) 

$(CC) -O $0 $ (OBJS) $ (LIBRARIES) $ (LDFLAGS) 

strip $ (TARGET) 

mv $ (TARGET) $ (BINDIR) 


$ (OBJS) : 


$ (HDRS) 
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/****************************************************★*********************************** 

* MODULE NAME AND FUNCTION: ( h_logout ) 

★ 


* This client is used to present the means by which the user exits from the HISDE sys- 

* tern. This client initializes a single command widget, which when selected, causes all 

* active HISDE clients to be terminated. At this point, the HISDE login client will 

* be in control. 


* 


* DESCRIPTION OF MAIN FUNCTION: 

it 

* This is the main function of the h_logout client. It is responsibile for initializing 

* the resource database and the exit command widget. Once this widget and its associ- 

* ated callbacks are initialized and realized, this function calls the Xtoolkit intrin- 

* ic (XtMainLoop) to process all incoming events. 

* 

* The window presented by this client consists of a simple hierarchy of widgets. These 

* widgets are summarized below: 

it 

* top > form — + — > command (exit HISDE) 

* 

* Once this function calls XtMainLoop, a callback will occur when the exit command is 

* selected. In this case, the <cbr_logout_terminate) function will be called. 

* 

it 

* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/ requirements 

* /hisde/design/design 

* 


* 


* EXECUTION SEQUENCE: 

* 

* h_logout 

* 

* 

* EXTERNAL DATA USED: ( 9 l r *■ Input 9 O' — Output *1/0* — Input/Output ) 

* 

* This routine initializes all declared widget variables. 

it 

it 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

* 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 

*★***★***★★ ****************************************************************************** 


* 

* 

* 

* 

* 

★ 

* 

★ 

* 

* 

* 

* 

* 

* 

★ 

* 

/ 


♦include <stdio.h> 

♦include <Xll/IntrinsicP .h> 
♦include <Xll/StringDefs .h> 
♦include <X11/Cardinals .h> 
♦include <X11/Shell ,h> 
♦include <Xm/RowColumn.h> 
♦include <h_user_inter .h> 
♦include <h_logout.h> 
♦include <h_logout .bit> 


/* 

* Declare all widgets which will be used by this client. This data is made 

* external to allow simple access in callback functions. 




*/ 
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Widget top, mb_main, mp_file, widget; 


/* 

* Declare all callback functions. 

*/ 

extern xtCallbackProc cbr_logout_terminate () ; 



main ( argc, argv ) 
int argc; 

char **argv; 

( 

7 * Initialize each of the callback lists used for the commands generating this type of 
* event . 

*/ 


static XtCallbackRec cb_terminate [] - { 

( (XtCallbackProc) cbr_logout_terminate, (caddr_t)NULL ), 
{ (XtCallbackProc) NULL, <caddr_t)NULL ) 

); 


Arg icon_arg. 


args [ 1 ] ; 


/ * Argument used to initialize the graphic icon 
* used for this client . 

*/ 

/* Argument list used to initialize widgets. 

*/ 


* Initialize the Xtoolkit, parse command line, and return the root widget which will be 

* the parent of the window. 

*/ 


top - Xtlnitialize ( NAME_SHELL, NAME_APLIC, NULL, ZERO, Sargc, argv ) ; 

/* 

* if there were arguments on the command line which could not be parsed, call the 

* function (bad_syntax) to report the error, display the correct syntax, and exit from 

* the client . 

*/ 


if ( argc > 1 ) 

bad_syntax ( "h_logout" ) ; 


* Initialize the icon bitmap for this client. 
*/ 


XtSetArg ( icon_arg, XtNiconPixmap, 

XCreateBitmapFromData ( XtDisplay (top) , XtScreen (top) ->root, 

h logout_bits, h_logout_width, h_logout_height ) ) 


XtSetValues ( top, &icon_arg, ONE ) ; 

★ 

* Create the menu bar which will contain all commands . 
*/ 

mb_main - XmCreateMenuBar ( top, NULL, 0 ); 

XtManageChild ( mb_main ) ; 
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Create the pulldown for the file commands. 


mp_file - XmCreatePulldownMenu ( mb_main, "" , NULL, 0 ) ; 
create_cascade ( mbjnain, mp_file, LABEL_FILE ) ; 

create_command ( mp_file, LABEL_EXIT, cb_terminate ) ; 


Create the help cascade . 


widget - create_cascade ( "", mb_main, NULL, LABEL_HELP ) ; 
XtSetArg { args [ 0 ], XmNmenuHelpWidget , widget ); 
XtSetValues ( mb__main, args, 1 ) ; 


Realize the top level widget. This causes the main form of this client to be 
displayed. 


XtRealizeWidget ( top ) ; 


Enter the normal Xtoolkit main loop, which coordinates processing of the various 
widget events. This loop will terminate normally when the user selects the 
"Exit" command. 


XtMainLoop ( ) ; 
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/********************* ******************* A ******************************* ****** *********** 

* MODULE NAME AND FUNCTION ( cbr_logout_terminate ) * 

* 

* This callback function is activated when the user selects the exit command widget . It * 

* is responsible for terminating the HISDE system. It simply destroys the top level 

* widget, which in turn causes all subordinate widgets to be removed. * 


* SPECIFICATION DOCUMENTS 

★ 

★ 

★ 

★ 

★ 


/hisde/ req/ requirements 
/hisde/design/design 


* EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input/Output) 

top (Widget) (I) - Pointer to the root widget of the main window. 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Mark D. Collier - Software Engineering Section 

★ Data System Science and Technology Department 

* Automation and Data Systems Division 

★ Southwest Research Institute 
*****************************************************************************************/ 


♦include <X11/Intrinsic.h> 
♦include <X11/Shell . h> 


extern Widget top; 


XtCallbackProc cbr_logout_terminate ( widget, closure, calldata ) 


Widget widget; 


caddr t closure, 


calldata; 


{ 

XEvent event ; 


/* Set to the widget which initiated this callback 

* function. 

*/ 

/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function, 

*/ 

/* Event structure needed to make the calls to the 

* XtNextEvent and XtDispatchEvent functions, 

*/ 


/* 

* Destroy the root application shell widget and thereby, all subordinate widgets which 

* make up the window. 

*/ 


XtDestroyWidget ( top ) ; 


/* 

* Determine if any events have been queued. These will normally be events which 

* cause the widgets destroy callback to be executed. Waiting and then processing 

* the events insures that all data structures initialized by the widgets are 
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* properly deallocated. 

*/ 

Xt Next Event ( & event ) ; 

XtDispatchEvent ( fievent ) ; 

/* 

* Close the display to deallocate any connections set up by X Windows . 

* exit from the client. 

*/ 



Next 


} 


XCloseDisplay ( XtDisplay ( top ) ) ; 

exit ( 0 ) ; 
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###################################**#*****##************ ####### * ######################## * 

# Makefile for HISDE user interface client (h_menu_edit) * 

#############################**##**####****###**#******#***#*****#************************ 


* 

# Define the target which this file is to create. 

# 

TARGET _ h menu_edit 


# Initialize include and library search paths to include current directory and the 

# HISDE directories. Note that the library path also includes the user interface 

# library. 

# 

BINDIR « /hisde/bin 

INCDIR - /hisde/src/include 

INCDIRS “ -I. -1$ (INCDIR) 

* 

# Define the libraries to search. This includes the HISDE library, the local user 

# interface library, and all required X libraries. 

# 

LIBRARIES - -lui -lhisde -lXm -lXt -1X11 


* 

# Define the compiler and linker flags. 

* 

CFLAGS - -O $ (INCDIRS) 

LDFLAGS - -O $ (EXTRAFLAGS) 


# 

# Define all objects which make up this target. 

* 

OBJS «\ 

save_menu . o\ 
cbr_f ile . o\ 
cbr_clear .o\ 
cbr_edit_t rm . o \ 
h menu edit.o 


* 

# Define all header files required. 

* 


HDRS -\ 

$ (INCDIR) /menu.hN 
$ (INCDIR) /h_user_inter .h\ 

$ (INCDIR) /h_menu_edit .bit\ 
$ ( INCDIR) /h_menu_edit . h\ 

$ (INCDIR) /hisde.h 


* 

# Make the target . 

* 

all: $ (TARGET) 

$ (TARGET): $ (OBJS) 

$<CC) -o $0 $ (OBJS) $ (LIBRARIES) $ (LDFLAGS) 
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atrip $ (TARGET) 

mv $ (TARGET) $ (BINDIR) 

$ (OBJS) : $ ( HDRS ) 
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/******************************** *************************************** ******** 

* MODULE NAME AND FUNCTION: ( h menu_edit ) * 

★ ^ 

* This HISDE client is provides a convienient means by which the user can build and edit * 

* menus. A menu is a list of labels and commands which is presented to the user for * 

* selection. A menu may contain both normal commands (programs and options), direct- * 

* ories, and names of sub-menus. This allows users to build hierarchial lists of menus * 

* which are grouped based on function. For more information on menus, refer to the * 

* documentation on the (h menu) client . 

* 

* All menus are simply ascii files which contain a logical record (string terminated by * 

* a newline) for each menu item. Each item in turn consists of the following three * 


parts : 


Label - The string which appears on the menu item. It may consist of any string * 

which is not blank, does not contain a separator character, and is not * 

longer than the maximum length. It is recommended that only alphanumeric * 

characters be used. 4 

★ 

Separator - Separates the label from the command/directory /menu . This character * 
also indicates whether the next part is a command, directory, or * 

menu. The character ' indicates a command, indicates a com- * 

mand which needs a window initialized, '$' indicates a directory, and * 
' I' indicates a menu. * 


Command/Menu 

Directory 


The command, directory, or menu which is used. It may consist of * 
any string which is not blank and is not longer than a maximum * 
size. * 


* In addition, the menu file may contain comments and blank lines to aid readability for * 

* the user. Any lines beginning with a '#' character are considered to be comments. A * 

* menu file may contain any number of lines, but may contain no more than 32 actual menu * 

* items. Note that this value (along with all other constants), may be changed if re- * 

* quired by the user. * 

* * 

* When this client executes, it will present a window focused on a text widget (with * 

* scrollbar) which allows any menu file to be viewed and edited. In addition, the user * 

* may select any of the following commands: * 

* * 

* Exit - Exit from the menu edit client. * 


* Clear - Clear the menu text widget of all data. * 

★ * 

* Load - Load the contents of a menu into the text widget. Note that this erases * 

* the current contents of this window. * 

* * 

* Merge - Merge the contents of a menu at the current text widget cursor position. * 

* Note that the current contents of the window will not be removed. * 

* * 

* Save - Save the contents of the menu to a file. Note that this command will * 

* verify the contents of the menu. It will not allow a menu which contains * 

* invalid data to be saved. * 

* * 

* Note that the load and merge commands do not check the validity of a menu. This only * 

* occurs when the user attempts to save a file. Note also the the user could alterna- * 

* tively use 'vi' to edit menus, however, this is discouraged as menu errors will not be * 

* found. The (h_menu) client performs syntax checking, but may still fail if an invalid * 

* menu is displayed. * 

* * 

* Note that in order to use the load, merge, or save commands, the user must first enter * 

* a menu filename. A menu filename is simply the name of the file. It may be any nor- * 

* mal UNIX path name, which includes either a full pathname or a partial path. Note * 

* that the filename itself is free format. The user is free to choose his own naming * 

* standards and extensions. * 
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DESCRIPTION OF MAIN FUNCTION: 


This is the main function of the h_menu_edit client. It is responsibile for initial- 
ization of the resource database and all widgets which make up the client window. 

Once all widgets and their associated callbacks are initialized and realized, this 
routine calls the Xtoolkit intrinsic (XtMainLoop) to process all incoming events. 


The window presented by this client consists of a hierarchy of widgets. Essentially, 
it consists of a main form with several child forms, each of which present one major 
function. Each child form in turn controls several widgets. The full hierarchy of 
widgets is summarized below: 


top 


> form 


-> 

form 

(Client 

) 

— + — > 

label 




(ID 

> 

+ — > 

command 

(clear menu) 





+ — > 

command 

(exit client) 

-> 

form 

(Menu 

> 

— + — > 

text 

(actual menu data) 

-> 

form 

(Filename) 

— + — > 

label 




(Function) 

+ — > 

text 

(filename data) 





+ — > 

command 

(load command) 





+ — > 

command 

(merge command) 





+ — > 

command 

(save command) 


Each of the forms used is offset from other forms to maintain a consistent layout of 
information. The widgets with each form are in turn offset from one another in the 
same way. This insures that homogenous widgets remain in close proximity and in a 
sensible arrangement . 


Once this function calls XtMainLoop, there are a number of callback events which may 
be executed. These functions, the command widgets to which they are tied, and the 
operations they perform are as follows: 


function 

event 

operation 

cbr edit terminate 

exit 

terminate h menu edit client 

cbr_clear 

clear 

clear menu text 

cbr_load 

load 

load a menu file 

cbr_merge 

merge 

merge a menu file 

cbr_ save 

save 

save a menu file 


For more information on these callback functions, refer to the appropriate source 
code file. 


SPECIFICATION DOCUMENTS: 

/hisde/req/requirements 

/hisde/design/design 


EXECUTION SEQUENCE: 

h_menu_edit [-menu menu_file] 

-menu menu_file - optional parameter which allows the user to specify the initial 
menu file to be edited. If an existing file is specified, it 
will be loaded and displayed. 


FILES USED AND APPLICATION DEFINED FORMATS: 




* 

★ 

* 

★ 

* 

★ 

★ 

★ 

* 

★ 

★ 

* 

it 

* 

★ 

★ 

if 

★ 

* 

* 

* 

it 

it 

it 


./h_menu_edit/h_menu_edit.c 


Menu File 

A menu file is a normal UNIX ascii file which contains an arbitrary number of 
logical lines. A logical line may in turn be a blank line, a comment line, or 
menu item line. A menu item line is defined as one of the following: 



r label' 


label' 


label' 


label' 


OR 

' 0 ' 

OR 

'$' 

OR 


' command' 


'command' (to initialize a window) 


'directory' 


'menu' 


Note that a menu file must not contain more than 32 actual menu items , 
possible to increase this value if necessary. 


It is 


* EXTERNAL DATA USED: ('I' - Input '0' - Output 'I/O' - Input /Output ) 

★ 

* This routine initializes all declared widget variables. 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

★ 

* 
it 
★ 

**★★**★**★★**** 


Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 

a********************************************************************* 


* 

* 

* 

a * 
* 
* 
★ 
* 
* 
* 
it 
•k 
* 
it 
it 
h 
it 
it 
it 
* 
* 
* 
★ 
* 
* 
* 
it 
it 
it 
it 
it 
it 
it 
it 
* 

★ ★ * ★ f 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio .h> 

<X11 / Intrinsic .h> 
<Xll/StringDef s ,h> 
<X11/Cardinals .h> 
<X11/Shell.h> 
<Xll/MwmUtil.h> 
<Xm/MainW.h> 
<Xm/RowColumn . h> 
<Xm/Form.h> 
<Xm/FileSB.h> 
<h_menu_edit .bit> 
<hisde ,h> 
<h_user__inter . h> 
<menu . h> 

<h menu edit . h> 


char filet S I ZE_F I LENAME + 1 ] - 

/* 

★ Declare all widgets which will be used by this client. Again, this data is made 

* external to allow simple access in callback functions. 

*/ 


top, m_main, mb_ma i n , mp_f ile, mp_edit, 
f_menu, t_menu. 


Widget 


widget 
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f_f ile, l_f ile, t_file, 
f_popup, t_popup; 



/* 

* Declare all callback functions. 
*/ 


extern XtCallbackProc 


cbr_edit_terminate ( ) , 
cbr_clear (), 
cbr f ile ( ) ; 


main ( argc, argv ) 
int argc; 

char **argv; 

{ 

/* 

* Define the application-specific resources allowed by this client . The only resource 

* which may be set is the initial menu to be edited. Note that if the user specified 

* a menu file, the pointer (fp) will be set to address it. 

*/ 


static XrmOptionDescRec options [] - { 

{ "-menu", "Menu", XrmoptionSepArg, NULL } 

} ; 


static char *fp? 

static xtResource resources!] “ { 

{ "menu", "Menu", XtRString, sizeof (char *) , (Cardinal) Sfp, 
NULL, ( caddr_t ) NULL } 

} ; 


/* 

* Initialize each of the callback lists used for the commands generating this type of 

* event. These include the exit, clear, and file commands. 

*/ 


static XtCallbackRec cb_terminate [ ] - { 

( (XtCallbackProc) cbr_edit_terminate, (caddr_t)NULL }, 
{ (XtCallbackProc) NULL, (caddr_t) NULL ) 

} ; 


static XtCallbackRec cb_clear[ ] 
{ (XtCallbackProc) cbr_c lea r, 
{ (XtCallbackProc) NULL, 

) ; 


( caddr_t ) NULL ), 
( caddr_t ) NULL } 


static XtCallbackRec cb_file[ ] 
{ (XtCallbackProc) cbr_file, 
{ (XtCallbackProc) NULL, 

) ; 


( caddr_t ) NULL ), 
(caddr t) NULL ) 


static XtCallbackRec cb_f ilel [ ] 
{ (XtCallbackProc) cbr_f ile, 

{ (XtCallbackProc) NULL, 

>; 


( caddr_t ) NULL }, 
( caddr_t ) NULL ) 


Arg icon_arg, /* Argument used to initialize the graphic icon for 

* this client. 

*/ 

/* Argument list used to initialize various widget 

* values. 

*/ 


args [ 2 ] ; 
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* Initialize the Xtoolkit, parse command line, and return the root widget which will be 

* the parent of the window. 

*/ 

top - Xtlnitialize ( NAME_SHELL, NAME_APLIC, options, XtNumber (options) , &argc, argv ) 


* If there were arguments on the command line which could not be parsed, call the 

* function (bad_syntax) to report the error, display the correct syntax, and exit from 

* the client. 

*/ 


if ( argc > 1 ) 

bad_syntax ( "h_menu_edit [-menu menu_file]" ); 


/* 

* Initialize the icon bitmap for this client. 
*/ 


XtSetArg ( icon_arg, XtNiconPixmap, 

XCreateBitmapFromData ( XtDisplay (top) , XtScreen (top) ->root, 

h menu edit bits, h_menu_edit_width, h_menu_edit_height ) ) ; 


XtSetValues ( top, &icon_arg, ONE ) ; 


* Parse all application-specific resources. The only resource which is present is 

* the initial menu to edit. If specified, the pointer (fp) will point to the specified 

* menu file. 

*/ 


XtGetApplicationResources ( top, (caddr_t) NULL, resources, XtNumber (resources) , 

NULL, ZERO ) ; 


/* 

* Create the main window widget and the menu bar which will contain all commands . 
*/ 


m_main — xmCreateMainWindow ( top, NULL, 0 ) ; 

XtManageChild ( m_main ) ; 

mb_main ■ XmCreateMenuBar ( m_main, NULL, 0 ); 

XtManageChild ( mb_main ) ; 


/* 

* Create pulldown for file commands. 
*/ 


mp_f ile - XmCreatePulldownMenu ( mb_main, NULL, 0 ) ; 

create_cascade ( mb_main, mp_file, LABEL_FILE ) ; 

cb_file( 0 ] .closure ■ (caddr_t) CB_NEW; 

create_command ( mp_file, LABEL_NEW, cb_file ) ; 

cb_file[ 0 ] .closure *• (caddr_t) CB_MERGE; 

create_command ( mp_file, LABEL_MERGE, cb_file ); 

cb_file[ 0 ] .closure - (caddr_t) CB_SAVE; 

create_command ( mp_file, LABE L_S AVE , cb_file ); 

cb_file[ 0 ] .closure ” (caddr_t) CB_SAVEAS; 

create_command ( mp_file, LABE L_S AVE AS , cb_file ) ; 


create command ( 


mp_f ile 


LABEL EXIT 


cb terminate ) ; 
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/* 

* Create pulldown for edit commands. 
*/ 


mp_edit - XmCreatePulldownMenu ( mbjnain, NULL, 

create_cascade ( mb_ma i n , mp_edit, LABEL_EDIT 

create_command ( mp_edit, LABE L_C LEAR, 


0 ) ; 

) ; 

cb clear ) ; 


/* 

* Create the help cascade. 
*/ 


widget - create_cascade ( mbjnain, NULL, LABEL_HELP ) ; 

XtSetArg ( args [ 0 ], XmNmenuHelpWidget , widget ); 
XtSetValues ( mbjnain, args, 1 ) ; 


/* 

* Initialize the child form which will contain the actual menu viewing/editing area. 

* Note that the text widget provides a scrollbar and is editable. 

*/ 


f_menu - create_f orm ( W_F_MENU_M , m_main ) ; 

tjnenu - create_text ( W_T_MENU_M, f_menu, 1, XmMULTI_LINE_EDIT, 1 ); 

/* 

* Define the areas which constitute the main window widget. 

*/ 

XmMainWindowSetAreas ( m_main, mbjnain, NULL, NULL, NULL, f jnenu ) ; 

/* 

* Create the popup file selection widget. This includes attaching callbacks to the OK 

* and CANCEL pushbuttons 
*/ 

cb_file [ 0 ] .closure - <caddr_t) CBjDK; 

XtSetArg < args [ 0 ], XmNokCallback, cb_file ); 

cb_filel[ 0 ] .closure - (caddr_t) CB_CANCEL; 

XtSetArg ( args [ 1 ], XmNcancelCallback, cb_filel ); 
f jpopup - XmCreateFileSelectionDialog ( top, args, 2 ) ; 

XtSetArg ( args [ 0 ], XmNmwmlnputMode, MWM_INPUT_APPLICATION_MODAL ); 

XtSetValues ( XtParent ( f_ popup ) , args, 1 ) ; 


/* 

* Save the widget pointer for the text widget in the file selection box. 
*/ 


t jpopup * XmFileSelectionBoxGetChild ( f_popup, XmDIALOGJTEXT ) ; 


/* 

* Realize the top level widget. This causes the main form of this client to be 

* displayed. 

*/ 


XtRealizeWidget ( top > ; 


/* 

* If the user specified a menu file, load it into the text widget. 
*/ 


if ( fp ) { 
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strcpy ( file, fp ) ; 

cbr file ( NULL, CB_MAIN, NULL ) ; 


} 


* Enter the normal Xtoolkit main loop, which coordinates processing of 

* the various widget events. This loop will terminate normally when the user selects 

* the "Exit" command. 

*/ 


} 


XtMainLoop ( ) ; 





./h_menu_edit/cbr_clear.c 



* MODULE NAME AND FUNCTION ( cbr_clear ) * 

* 


* The callback function is executed when the user selects the clear command widget. It * 


* simply clears the text widget which presents the current menu. * 

* * 

★ * 

* SPECIFICATION DOCUMENTS: * 

★ * 

* /hisde/req/ requirements * 

* /hisde/design/design * 

* * 

★ * 

* EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input /Output ) * 

* * 

* t_menu (Widget) (I) - Pointer to the text widget containing the menu. * 

★ * 

* * 

* ORIGINAL AUTHOR AND IDENTIFICATION: * 

* * 

* Mark D. Collier - Software Engineering Section * 

* Data System Science and Technology Department * 

* Automation and Data Systems Division * 

* Southwest Research Institute * 




♦include <X11/ Intrinsic .h> 


extern Widget t_menu; 


XtCallbackProc cbr_clear ( widget, closure, calldata ) 


Widget widget ; 

caddr_t closure, 
calldata; 


/* Set to the widget which initiated this callback 

* function. 

*/ 

/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 


{ 

/* 

* 

*/ 


Clear all text from the menu text widget, 


clear_text_widget ( t_menu ) ; 

» 
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* MODULE NAME AND FUNCTION ( cbr_file ) * 



It 


* This callback function is executed when the user selects the load command widget. 

* opens the filename specified by the user^ reads all contained data^ and places it into * 

* the menu text widget. In doing so, any previously displayed menu will be removed. * 


* 

* 

* SPECIFICATION DOCUMENTS: 

★ 

* /hisde/ req/ requirements 

* /hisde/design/design 

* 

* 


* EXTERNAL DATA USED: ('I' 

★ 

* t menu ((Widget) (I) 


f_popup (Widget) (I) 
t_p°pup (Widget) (I) 
file (char [ ] ) (I/O) 


Input 'O' - Output 'I/O' - Input /Output) 

- A pointer to the text widget used to display the menu. 

- A pointer to the form widget used for the popup. 

- A pointer to the text widget used for the popup. 

- String containing the current filename. 


★ 

★ 

* 

* 

★ 
if 
★ 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

if 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* 
it 

A****************************************************************************************/ 


Automation and Data Systems Division 
Southwest Research Institute 


♦include <stdio.h> 

♦include <X11/ Intrinsic ,h> 
♦include <Xm/FileSB .h> 
♦include <hisde.h> 

♦include <h_user_inter . h> 
♦include <h_menu__edit . h> 
♦include <menu.h> 


extern char file[ ]; 

extern Widget t_j menu, 

f _popup, tj popup; 


XtCallbackProc cbr_file ( widget, closure, calldata ) 
Widget widget; 


caddr_t closure, 
calldata; 


/* Set to the widget which initiated this callback 

* function. 

*/ 

/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* specifies any callback-specific data the widget 

* needs to pass to the client . This parameter is 

* is not used by this function. 

*/ 


static int 


start cmd - -1; /* Static value used to contain the command which 
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* initiated the popup display. 
*/ 


register int pos - -1, 


cmd. 


status; 


/* Paramter for ( load_text_widget ) . Causes new 

* data to replace or be merged into the current 

* menu text widget . 

*/ 

/* Set to the command which initiated this callback. 
*/ 

/* Used to save the status of calls made to load and 

* save menus . 

*/ 


char *file_temp; /* Temporary string which will point to the filename 

* specified in the popup. 

*/ 

/* 

* Convert the (closure) parameter to a normal value to ease comparison. 

*/ 


cmd - (int) closure; 


/* 

* If the function was called from the main (command line argument) , simulate a call 

* after a normal popup. First save file in the popup text widget and then make it 

* look like a new call after the popup. 

*/ 

if ( cmd — CB_MAIN ) { 

update_text_widget ( t_popup, file ) ; 
start_cmd - CB_NEW; 
cmd - CB_OK ; 

} 

/* 

* If a menu command (instead of a popup), save the command and if no file yet 

* specified or the command requires a new filename, display the popup with the current 

* filename. 

*/ 

if ( cmd — CB_NEW | | cmd -- CB_MERGE | | cmd -- CB_SAVE | | cmd — CB_SAVEAS ) { 

start_cmd - cmd; 

if ( file [ 0 ] — NULL | | cmd ! - CB_SAVE ) { 

update_text_widget ( tjpopup, file ) ; 

XtManageChild ( f_popup ) ; 
return; 

) 

) 

/* 

* At this point assume that popup is displayed and a file was entered, so remove 

* the popup (this is unnessary if called from the main function) . 

*/ 


XtUnmanageChild ( f_popup ) ; 


/* 

* If user selected cancel or help commands on the popup, simply return. 

* / 

if ( cmd -- CB_CANCEL | | cmd «« CB_HELP ) 
return; 
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/* 

* Get the text from the widget. 

*/ 

file_temp * get_text — widget ( t_popup ) ; 




* Process the commands. If new or merge, then if merge, get the current position of 

* the cursor. Next attempt to load the file into the text widget at the appropriate 

* position (beginning or at cursor positron) . Note that if (pos) is still — 1, the 

* new data will replace the old data. 

*/ 

if ( start_cmd — CB_NEW | | start_cmd “ CB_MERGE ) { 

if { start_cmd " CB__MERGE ) 

pos - get_text_insertion_widget ( t_menu ) ; 

if ( status - load__text_widget ( file_temp, t_menu, pos ) ) 

display__message ( MSG_WARNING, ”Could not open the specified file” ) ; 

/* 

* Otherwise (save commands), save the menu to the file. Error messages are generated 

* internally to this function. 

*/ 

} else 

status - save_menu ( file_temp, t_menu ) ; 

/* 

* If the command was not merge (which does not change the filename) and if a new 

* command did not fail, update the filename with the new name. 

*/ 

if ( start _cmd !« CB_MERGE && ! ( start_cmd — CB_NEW && status ) ) 

strcpy ( file, file^temp ) ; 

XtFree ( f ile_temp ) ; 

) 
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* MODULE NAME AND FUNCTION ( cbr_edit_terminate ) * 

* 

* This callback function is activated when the user selects the exit command widget, it * 

* is responsible for normal termination of the h_menu_edit client. It simply destroys * 

* the top level widget, which in turn causes all subordinate widgets to be destroyed. * 

* * 

* * 

* SPECIFICATION DOCUMENTS: * 

* * 

* /hisde/req/requirements * 

* /hisde/design/design * 

* * 

* it 

* EXTERNAL DATA USED: (' I ' - Input 'O' - Output 'I/O' - Input/Output) * 

* ★ 

* top (Widget) (I) - Pointer to the root widget of the main window. * 

* * 

* ★ 

* ORIGINAL AUTHOR AND IDENTIFICATION: * 

* * 

* Mark D. Collier - Software Engineering Section * 

* Data System Science and Technology Department * 

* Automation and Data Systems Division ★ 

* Southwest Research Institute * 






♦include <X11/Intrinsic . h> 


extern Widget top; 


XtCallbackProc cbr_edit_terminate ( widget, closure, calldata ) 

widget widget; /* Set to the widget which initiated this callback 

* function. 

*/ 


caddr_t closure. 


calldata; 


{ 

XEvent event ; 


/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 

/* Event structure needed to make the calls to the 

* XtNextEvent and XtDispatchEvent functions. 

*/ 


/* 

* Destroy the root application shell widget and thereby, all subordinate widgets which 

* make up the window. 

*/ 


XtDestroyWidget ( top ) ; 


/* 

* Determine if any events have been queued. These will normally be events which 

* cause the widgets destroy callback to be executed. Waiting and then processing 

* the events insures that all data structures initialized by the widgets are 

* properly deallocated. 





*/ 
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XtNextEvent ( Sevent ) ; 

XtDispatchEvent ( Sevent ) ; 


* Close the display to deallocate any connections set up by X Windows. 

* exit from the client. 

*/ 

XCloseDisplay ( XtDisplay ( top ) ) ; 

exit ( 0 ) ; 


Next 


} 
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/★★★************************************************************************** 
* MODULE NAME AND FUNCTION ( save menu ) 





★ 


★ 


* The callback function is executed when the user selects the save command widget. It 

* verifies the current contents of the menu and if valid, saves them to the specified * 

* filename. Note that this function will not let the user save a file which contains * 

* any type of invalid data. * 


* SPECIFICATION DOCUMENTS: 


* 

if 

* 

★ 

* 


/hisde/req/ requirements 
/hisde /design/design 


* 

★ 

if 

* 

★ 


* EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input/Output) 

* 

★ 


★ 

* 

* 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 


★ 

★ 

if 

* 


Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 


★ 

* 

* 

it 

it 

it 






♦ include 
♦include 
# include 
# include 
♦include 
♦include 


<stdio.h> 

<X11/ Intrinsic .h> 
<hisde.h> 
<h_user_inter . h> 
<menu . h> 

<string. h> 


save_menu ( 

file, t_menu 

char 

*f ile; 

Widget 

t_menu; 

FILE 

*fp; 

register int 

line - 0 


count - 0, 
len; 


register char *p, 
*n, 


/* Function returns a value indicating whether or not 

* the file could be saved: 

★ 

* 0 - Success 

* -1 - Failure 

V 

/* File to save the contents of the menu to. 

*/ 

/* Text widget containing the menu data. 

*/ 

/* File pointer used to open and save the contents 

* of the menu. 

*/ 

/* Used to maintain the current menu line. 

*/ 

/* Used to maintain the count of actual menu items. 

*/ 

/* Set to the length of the line which is currently 

* being examined. 

*/ 

/* Pointer to the separator character in the current 

* menu item line. 

V 

/* Pointer to the newline (end of line) in the current 

* menu item line. 




char 
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* 3 , 


‘menu; 


*/ 

/ * Pointer to first character in the current menu 
* item line. 

*/ 

/ * Pointer for menu text return from widget. 

*/ 


message [ 80 ]; /* Set to the message which will be output if a menu 

* syntax error is found. It will include the line 

* on which the error occurred. 

*/ 


/* 

* Retrieve all text from the widget. 
*/ 


menu * get_text_widget { t_menu ) ; 


* Prepare the verify the format of the menu. First change the terminating NULL to a 

* newline to simplify the following processing. 

*/ 


len “ strlen ( menu ) ; 
if ( menu [len-1] !- NEWLINE ) 

menu [len] - NEWLINE; 


/* 

* Scan the menu to determine if all logical lines are valid. This loop first breaks 

* the menu into logical lines (terminated by a newline) . Then, if the line is not 

* blank or a comment, scans the line for either of the separator characters. 

* 

* Note that through this loop, (s) points to the start of the line, (n) points to 

* the newline (end of the line), and (p) points to the separator character (if 

* present) . 

*/ 


p * menu; 

while ( n - strchr ( p, NEWLINE ) ) { 

line++; 

if ( n > p && *p !- COMM£NT_CHAR ) { 

count ++; 


s s p ; 

while ( p<n && *p !- SEP_CHAR_CMD && *p 
*p !- SEP_CHAR_MENU && *p 


P++; 


SEP_CHAR_CMD_W & 
SEP CHAR DIR ) 


/* 

* Determine if the current menu line is invalid. Errors include omitting a 

* separator, omitting the label, omitting the command/menu, entering a label 

* which is too large, or entering a command/menu which is too large. In any 

* of these cases, format a message (which includes the line number), output 

* to the system message client, and return. 

*/ 


if ( p “ n ) { 

sprintf ( message, "No separator character found on line %d", line ) ; 
XtFree ( menu ) ; 

return ( display_message ( MS G_WARN I NG , message ) ) ; 

) else if ( s “ p ) { 

sprintf ( message, "No label found on line %d", line ) ; 

XtFree ( menu ) ; 

return ( display_message ( MSG_WARNING, message ) ) ; 

) else if ( p+1 ~ n ) { 
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sprint f ( message, "No command found on line %d", line ) ; 
XtFree { menu ) ; 

return ( display_message ( MSG_WARNING, message ) ) ; 

} else if ( s+SIZE_MENU_LABEL-l < p ) { 

sprintf ( message, "Label is too large on line %d", line ); 
XtFree ( menu ) ; 

return ( display_message ( MSG_WARNING, message ) ) ; 

} else if ( p+SIZE_MENU_DATA < n ) { 

sprintf ( message, "Command is too large on line %d", line ) ; 
XtFree ( menu ) ; 

return ( display_message ( MS G_WARN I NG , message ) ) ; 

} 

} 



/* 

* Set (p) to point to the next line (first character following the newline) . 
*/ 


p - n + 1; 

} /* of while */ 

/* 

* Set the last character in the menu buffer to NULL. This is in case it was changed 

* to a newline to simplify the error checking. 

*/ 


menut len ] - NULL; 


/* 

* Determine if the menu has too many actual items (not counting blank lines and 

* comments) . If so, format a message, output to the system message client, and return. 
*/ 

if ( count > NUM_MENU_ITEMS ) { 

sprintf < message, "A menu must not have more than %d items", NUM_ME NU__ I T EMS ); 
XtFree ( menu ) ; 

return ( display_message ( MSG_WARNING, message ) ) ; 

} 

/* 

* Open the file for write access. If an error occurs, output a message to the 

* system message client and return. 

*/ 

if ( ( fp - fopen ( file, "w" ) ) — NULL ) { 

XtFree ( menu ) ; 

return ( display_message ( MSG_WARNING, "Could not open the specified file" ) ) ; 

} 

/* 

* Write the contents of the menu to the file. When complete, free memory allocated for 

* widget text . 

*/ 


p » menu; 
while ( *p ) 

put c ( *p++, fp ) ; 

XtFree ( menu ) ; 


/* 

* Close the file. If an error occurs while closing the file, output a message to the 

* system message client. Otherwise, inform the user that the file was successfully 

* saved. 




*/ 
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if ( fclose ( fp ) ) 

return ( display_message { MSG_ERROR, "Could not properly close the menu file" ) ) 


display_message { MSG_INFORMATION, "Menu file was successfully saved" ) ; 
return ( 0 ) ; 
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I#**##**####**********#*####*#*###***#*##**###*##*#***#*#*##*##*####****#**##**#***##*##** 

# Makefile for HISDE user interface client h_advisory. # 

»###«#»##««##«#*#**#«#«»****#**»#*######*»*#***##*##*#»*#**#»##**#«»*#***»**#»»**####**##' 

* 


# Define the target which this file is to create. 


» 

TARGET - h_msg_look 


# 

# Initialize include and library search paths to include current directory and the 

# HISDE directories. Note that the library path also includes the user interface 

# library. 

# 

BINDIR - /hisde/bin 

INCDIR - /hisde/src/include 

INCDIRS - -I. -1$ (INCDIR) 


# 

# Define the libraries to search. This includes the HISDE library, the local user 

# interface library, and all required X libraries. 

# 

LIBRARIES - -lui -lhisde -lXm -lxt -1X11 


» 

# Define the compiler and linker flags. 

# 

C FLAGS - -O $ (INCDIRS) 

LD FLAGS - -O $ (EXTRAFLAGS) 


« 

# Define all objects which make up this target . 

# 


OBJS -\ 

tmr_upd_win . o\ 
cbr_exit_com. o\ 
update_win . o\ 
h_msg_look . o 


* 

# Define all header files required. 

* 

HDRS -\ 

$ (INCDIR) /h_msg_look.h\ 

$ (INCDIR) /h_msg_look.bit\ 
$ (INCDIR) /hisde.h 

* 

# Make the target . 

* 

all: $ (TARGET) 


$ (TARGET): $(OBJS) 

$(CC) -O $0 $ (OBJS) $ (LIBRARIES) $ (LDFLAGS) 

strip $ (TARGET) 

mv $ (TARGET) $ (BINDIR) 




$ (OBJS) : 


$ (HDRS) 


./h_msg_look/Makefile 




7h_msgJook/h_msgJook.c 





* MODULE NAME AND FUNCTION: ( h_msg_look ) 

* 


The h_msg_look client provides the user with the logged message window for the 
HISDE system. It allows the user to view messages which have been received. 


This client displays the message log file in a scroll window which allows the 
user to view the last 500 logged messages. 


* This client uses a timer routine to check if new messages have been logged. The 

* default timer value is 2 seconds. If the user wants to change the interval, 

* he/she may do so in the command line when running h_msg_look by using the 

* '-interval' option. Whenever the timer expires, the last position written to 

* is read from the message log file and compared to the previous value read from 

* the file. If the value has changed it is an indication that new messages have 

* been written to the file. 

* 

* 


* DESCRIPTION OF MAIN FUNCTION: 

★ 

* This is the main driver for the h_msg_look client of the HISDE system. It 

* initializes the X Windows system and then creates the widgets necesssary for the 

* h_msg_look window. The window created contains a label for the message log 

* window, an exit command button, and a scroll window for the display of the 

* logged messages. 


This client will display the window and then enter the XtMainLoop routine 
and periodically update the display. It will also handle the user selecting 
a command button. 


if the exit button is selected, the exit__commend ( ) function is executed and 
h_msg_look is terminated. 

In order to periodically update the message log display, a timer is started 
before entering XtMainLoop. When this timer expires, the update_msg win() 
function is executed. This function will access the message log - file and 
redisplay the scroll window with its contents. If any messages have been 
received since the last check, they will be displayed at the bottom of the 
current list. Once the scroll window has been updated, the timer is started 
again. This will continue until the user selects the exit button. 


SPECIFICATION DOCUMENTS: 

/hisde/req/ requirements 
/hisde/design/design 


EXECUTION SEQUENCE: 

h_msg_look [-interval seconds] 

In addition to the X Windows options which may be used when running h msg look, 
the following options are defined: — ~ 

-interval [seconds] - indicates the interval, in seconds, desired by the user. 


FILES USED AND APPLICATION DEFINED FORMATS: 

/hisde/ .msg log — This file is used by the h_msg_look client to retreieve 

all messages received in the message queue. It is set up 
as a circular file with a maximum number of messages. 
Because it is a circular file, each message written 





* 


★ 


★ 


★ 


★ 


★ 

* 

A 


★ 

ir 


★ 

* 

* 
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to this file must be of the same length. Therefore, 
each message is read into a blank message buffer of 
the maximum message size possible. In order to 
maintain this file, the last position written to 
in the file the last time a message was added is 
stored at the beginning of the file. This maximum 
sizes for this file are defined in the h_logfiles.h 
header file. 


struct .msg_log ( 

char [POSITIQNJDFFSET] last_position; 

char [MAX_NUM_MSG * MAX_ME S S AGE ] messages; 

} 



* ORIGINAL AUTHOR AND IDENTIFICATION: 


Nancy L. Martin 


Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 




♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio .h> 

<X11/ Intrinsic .h> 
<X1 1 / St r ingDef s . h> 
<X11/Cardinals .h> 
<X11/Shell.h> 
<Xm/MainW.h> 
<Xm/RowColumn . h> 
<Xm/Form.h> 
<hisde.h> 

<h_user_ inter . h> 
<h_msg_look . h> 
<h_msg_look .bit> 
<h_logf iles . h> 


* Declare all external widgets to be used by the h_msg_look application. 

* This is required for their use in the callback and action routines. 

*/ 


Widget top, m_main, mb__ main, mp^file, form, widget, msg_ scrll; 

/* 

★ Declare the interval to be used for redisplaying the message log. 

★ It's default is 2 seconds. This may be changed in the command line 

★ with the -interval parameter. 

*/ 

unsigned long timer interval m DEFAULT INTERVAL; 

/* 

★ Declare the callback procedures to be executed when a command button is selected. 
*/ 

extern XtCallbackProc exit_command ( ) ; 

/* 

★ 

*/ 


Declare the callback procedure to be executed when the timer value expires. 
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extern XtTimerCallbackProc update_msg_win () ; 



main ( argc, argv ) 
int argc; 

char **argv; 

{ 

/* 

* Declare the application-specific resources allowed by this client. The 

* resource which may be set is the interval desired for updating the scroll 

* window. 

*/ 

static XrmOptionDescRec options [] * { 

{ "-interval", "Interval", XrmoptionSepArg, NULL } 

} ; 


static XtResource resources!] - { 

{ "interval”, "Interval", XtRInt, sizeof(int) 

XtRInt, (caddr_t ) fitimer interval 


} ; 


} 


(Cardinal) &timer_interval. 


/* 


* 

* 

*/ 


Declare the callback list array to be used when creating command widgets. 
This array will contain the routines to be executed when the associated 
command button is selected. 

static XtCallbackRec command_callbacks [ ] - { 

{ (XtCallbackProc) NULL, (caddr_t) NULL }, 

{ (XtCallbackProc) NULL, (caddr t) NULL ) 

) ; 


Ar 9 icon_arg, /* Argument used to initialize the icon. 

*/ 

argsf 1 ]; /* Argument list used to initialize various 

* widget resources . 

*/ 


Xtlntervalld id; /* The ID necessary for identifying the timer. 

*/ 

/* 

* Initialize the X Windows system and create the top level widget for the 

* message log screen. 

*/ 

top - Xtlnitialize ( MESSAGE_LOG_SHELL, MESSAGE_LOG_CLASS, options, XtNumber (options) , 

iargc, argv ) ; 

/* 

* If there were invalid arguments on the command line which could not be parsed, 

* call the function, bad syntax, to display the correct syntax and exit from 

* the client. 

*/ 


if ( argc > 1 ) 

bad_ syntax ( "h__msg_look [-interval time]" ); 

* 

* Initialize the icon bitmap for this client. 

*/ 


XtSetArg ( icon_arg, XtNiconPixmap, 

XCreateBitmapFromData ( XtDisplay (top) , XtScreen (top) -> root, 
h_msg_look_bit s , h_msg_look_width, h_msg_look_height ) ) ; 


XtSet Values ( top, &icon_arg, ONE ); 
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* Retrieve any application-specific resources which were initialized previously or 

* in the command line. This includes the scroll window update interval. 

* Multiply the specified interval by 1000 to convert in into milliseconds. 

*/ 


XtGetApplicationResources (top, 
timer interval ■ timer_interval 


( caddr_t ) NULL, 
NULL, ZERO ) ; 

* 1000 ; 


resources, XtNumber (resources) , 


* Create the main window widget and the menu bar which will contain all commands. 
*/ 

m_main - XmCreateMainWindow ( top, NULL, 0 ); 

XtManageChild ( m_main ) ; 

mb_main - XmCreateMenuBar ( m_main, NULL, 0 ); 

XtManageChild ( mb_main ) ; 

/* 

* Create pulldown for file commands. 

*/ 

command_callbacks [ 0 ] .callback - (XtCallbackProc) exit_command; 
mp_file - XmCreatePulldownMenu ( mb_main, NULL, 0 ); 

create cascade ( mb_main, mp_file, LABEL_FILE ) ; 

create command ( " n , mp_file, LABEL_EXIT, command_callbacks ) ; 

/* 

* Create the help cascade. 

*/ 


widget — create cascade ( mb__main, NULL, LABEL HELP ) ; 

XtSetArg ( args [ 0 J, XmNmenuHelpWidget, widget ); 
XtSetValues ( mb_main, args, 1 ) ; 


/* 

* Create the main form. 

*/ 

form - create form < m_main ) ; 


* Create the text widget to be used as the message window. It is created 

* with a vertical scrollbar to allow the user to page through displayed 

* messages. 

*/ 


msg_scrll - create_text ( W_T_MESS, form, 1, XmMULTI_LINE_EDIT, 0 ); 


* Initialize the first iteration of the timer. This will cause the update_msg_win 

* callback routine to be executed. This routine will reset the timer each time 

* it completes its function. 

*/ 


id - XtAddTimeOut < timer_interval, update_msg_win, NULL ) ; 

-- /* 

* Call xtRealizeWidget on the top level widget to display the h_msg_look window. 

*/ 
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xtRealizeWidget ( top ) ; 

/* 

* Enter the Xtoolkit main loop to coordinate processing of all widget events. 

* This loop is terminated when the user selects the exit command button and 

* the associated callback procedure is executed to terminate this client. 

*/ 

XtMainLoop ( ) ; 

) 
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* MODULE NAME AND FUNCTION 

★ 


exit commando 


The exit command function ia a callback procedure attached to the exit 
command button of the h_msg_look client. This function causes the client 
to terminate naturally when the user selects the exit button. 


* SPECIFICATION DOCUMENTS: 


/hisde/req/ requirements 
/hisde /design/design 


'O' - Output 'I/O' - Input /Output) 
top (Widget) (I) - The top level form widget for the h_msg_look client. 


* EXTERNAL DATA USED: ('I' - Input 

* 

★ 

★ 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Nancy L. Martin - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 
********************************************************************************* 


* 

* 

* 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

* 


******** f 


♦include <X11/Intrinsic .h> 


/* 

★ Declare the top level widget . 
*/ 

extern Widget top; 


XtCallbackProc exit_command ( widget , closure, calldata ) 


Widget widget ; 

/* set to the widget which initiated this callback 
* function. 

*/ 

caddr_t closure, 

/* Callback specific data. This parameter is not 

* used by this function . 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 

calldata; 


* Remove the top level widget and then close the h_msg_ look display. 
*/ 


XtUnmapWidget ( top ) ; 
XCloseDisplay ( XtDisplay (top) ); 


/* 

★ Exit the h_ msg — look client with a zero. 
*/ 




exit (0) 

} 
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^TZTZZ********************************************************************************** 

MODULE NAME AND FUNCTION: update_msg_win ( ) * 



* 

* 

it 

* 

★ 

it 


This function is a timer callback procedure which is executed when the timer 
interval expires. This function updates the scroll window with the contents 
of the message log file if there have been messages added to the file. 

(update msg win) determines whether there have been new messages added by 
reading the position last written to from the beginning of the file and 
comparing it to the value read from the file the last time an update was 
necessary. If these numbers are not the same then the file has been updated. 

Finally, update msg_win reinitializes the timer value. This will cause 
update_msg_win to be called continually, at the specified interval, to update 
the message log scroll window when necessary. 


* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/ requirements 

* /hisde/design/design 


* EXTERNAL DATA USED: (' I' - Input 

* 


Output 9 I/O 9 - Input/Output) 


* 

* 

★ 

* 

* 

* 

* 

★ 

★ 

★ 

* 

* 


timer_interval (unsigned long) (I) - 

The interval used to set the timer for checking message queues. This 
value is initialized to the the value defined as DEFAULT_INTERVAL in 
the h_msg_look.h include file. It may be changed in the command line 
when executing this client. This value should be given in seconds. 

It will be converted to milliseconds programmatically. 

msg_scrll (Widget) (I/O) - 

The file text widget created for the display of messages in the message 
window. It is created with a vertical scroll bar on the left hand side 
to allow the user to page through displayed messages . 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

it 


Nancy L. Martin - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 


* 

* 

* 

★ 

* 

* 

★ 

it 

* 

it 

* 

* 

it 

it 

it 

it 

it 

* 

tlr 

★ 

* 

* 

* 

it 

it 

* 




♦include <stdio.h> 

♦include <X11/Intrinsic . h> 
♦include <Xll/StringDef s .h> 
♦include <hisde.h> 

♦include <h_msg_look . h> 
♦include <h_logf iles .h> 


* Declare the timer interval value for use in starting the timer back up. 
*/ 

extern long timer_interval; 

/* 

★ 

*/ 


Declare the widgets which are accessed for the update. 




extern Widget msg_scrll; 


./h_msg_look/tmr_upd_win.c 



XtTimerCallbackProc update_msg__win ( clientjdata, id ) 

caddr_t client_data; /* Specifies the client date that was registered 

* registered for this procedure in XtAddTimeOut . 

*/ 

Xtlntervalld *id; /* Specifies the ID returned from the corresponding 

* corresponding XtAddTimeOut call. 

*/ 

{ 

static int last_ position - 0; 

/* The position value read from the file on the 

* previous update. 

*/ 

int fd, /* The file descriptor of the opened host bulletin 

* log file. 

*/ 

newjposition; /* The value of the last position written to the 

* file. 

*/ 

char position [POSITION_OFFSET + 1 ]; 

/* The character string used to read in the last 

* position written to. 

*/ 


/* 

* Open the message log file for reading and read the value of 

* the last position written to from the beginning of the file. 

*/ 

if ( ( fd - open ( HISDE_MSG_LOG, 0_RD0NLY ) ) <- NULL ) { 

h_message ( MSG_ERROR, "h_msg_look: Cannot open message log file.” ); 

exit (-1); 

} 

if ( read ( fd, position, POSITION jOFFSET ) !- POSITION_OFFSET ) { 

hjmessage ( MSG_ERROR, w h_msg_look : Cannot read mesage log file position." ); 

close (fd) ; 
exit (-1) ; 

) 

/* 

* Convert the character string read from the file to an integer and compare 

* it to the value read from the file on the previous update. If the 

* value has changed, assign the new position offset to the static variable, 

* last_position, for use in the next pass through this function. Next, call 

* update_window to read the messages from the file and update the message 

* scroll window. 

*/ 


newjposition - atoi ( position ) ; 
if ( newjposition !- last ^position ) { 

last jPOsition - new_jposition; 
update_window ( fd, newjposition ) ; 

} 

/* 

* After the window has been updated, or if it did not need to be updated, 

* close the message log file. 
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* When the 3ccoll window h&3 b€ 6 n updsted (if nseded ) § reset the tinier so that 

* this routine will be called continually until the user selects to exit 

* the h_msg_look client. 

*/ 

*id - xtAddTimeOut { timer_interval, update_msg_win, NULL ) ; 

) 
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/**********************************^*************************************************** A 

* MODULE NAME AND FUNCTION: update_window ( ) 

* 


This function is called to read in the logged messages from the message log file 
starting with the oldest message. As each message is read, it will be 
concatenated onto the end of the buffer to be written in the message scroll 
window. When all messages have been read from the file, update_text_widget {) 
is called with the buffer of logged messages to update the message scroll window 
with the new messages. The cursor will then placed at the beginnning of the 
newly added messages. 


In order to determine where the first mesage is in the circular log file, 
update_window will attempt to read the first mesage past the last position 
written to in the file. If there is a message in this position then the file is 
full and this message is the oldest message. If there is not a message 
following the last position written to, the file is not yet full and the oldest 
message is the first message in the file. 


★ 


* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/ requirements 

* /hisde/design/design 


★ 


* EXTERNAL DATA USED: ( ' I' - Input 'O' - Output 'I/O' - Input/Output) 

* 

* msg_scrll (Widget) (I/O) - Text widget created for display of host messages. 

* 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

* 

* Nancy L. Martin - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 

i'*************************************************************************************** 


♦include <stdio.h> 

♦include <X11/Intrinsic.h> 
♦include <hisde.h> 

♦include <h_logfiles ,h> 


extern Widget msg_scrll; 


update_window ( fd, new_j>osition ) 


int fd. 


new_jposition; 


( 

int i, 

position; 


/* Specifies the file descriptor for the host 
* host bulletin log file. 

*/ 


/* Specifies the last position written to the host 
* bulletin log file. 

*/ 

/* Used to initialize the message buffer to blanks. 
*/ 

/* Maintains the current position in the file. 

*/ 


char 


buffer 


( MAX_ME S S AGE + 1 ] ; 
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/* used to read in each host message. 

*/ 

char display msg [ MAX_MSG_LOG + 1 ] ; 

/* Buffer which will contain all host messages. 

*/ 



* Initialize the scroll window buffer to blanks and assign the first position 

* to be null for concatenation purposes. 

*/ 


for ( i - 0; i < MAX_MSG_LOG; i++ ) 
display_msg [i] “ BLANK; 
display_msg [ 0 ] — NULL; 


* Assign the last position written to as the position to seek to for reading. 
*/ 


position “ new position; 


* Try to read the next message of ter the most recently added message. If 

* the read fails, set the file position to the first message in the file 

* past the position value, read that message, and assign the file position 

* to be this message's starting point. 

* 

* If neither read is successful, call h_message to inform the user that 

* the message log file cannot be read, close the file, and exit h_msg look . 

*/ 


lseek ( fd, position, 0L ) ; 

if ( read ( fd, buffer, MAX_MES S AGE ) <- 0 ) ( 

lseek ( fd, POSITION_OFFSET, 0L ); 
position - POSITION_OFFSET; 

if ( read < fd, buffer, MAX_MESSAGE ) <- 0 ) { 

h_message ( MSG_ERROR, "h_msg_look: Cannot read first log file message." ) 
close (fd) ; 
exit (-1) ; 

) 

) 

/* 

* If the oldest message was successfully read from the file, append it to the 

* message buffer. Update the file position pointer to point to the next message. 

* Each message read from the file is the same size, MAX_MESSAGE. 

*/ 


strcat ( display_msg, buffer ) ; 
position +“ MAX_MESSAGE; 


/* 

* If the new file position is greater than or equal to the maximum size of the 

* message log file, wrap around to the first message in the file. Note: 

* the first message in the file is located after the value indicating the 

* last position written to in the file. This value is of the size, 

* POSITION_OFFSET. 

*/ 


if ( position >- MAX_MS G_LOG ) 
position - POSITION_OFFSET; 


/* 

* 


Loop through the file reading the next message until the end of file is reached 
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* or the file position returns to the oldest message. 

* 

* For each message, the message is attached to the end of the message buffer. 

* The file position is updated to point to the next message in the file each 

* time. 

*/ 

while ( ( read ( fd, buffer, MAX_ME S SAGE ) > 0 ) && { position !- newj>osition ) ) { 
strcat ( display^ msg, buffer ) ; 
position +- MAX__MES S AGE ; 
if < position >- MAX_MSG_LOG ) { 

position - POSITION_OFFSET; 
lseek ( fd, position, OL ) ; 

} 

> 




/* 

* Update the text widget . 
*/ 


update_text_widget ( msg_scrll, display_msg ) ; 

XmTextSetlnsertionPosition ( msg_scrll, strlen ( display_msg ) ); 
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##########*##*#####*##*#*##*** ###################### f #################################### ! 

jl MaVaf { l a for HISDE user interface client (h pbi edit) * 

###########################****** ############ ** ## * ######################################## 


# Define the target which this file is to create. 

* 

TARGET - h_pbi_edit 

I 

# Initialize include and library search paths to include current directory and the 

# HISDE directories. Note that the library path also includes the user interface 

# library. 

# 

BINDIR “ /hisde/bin 

INCDIR “ /hisde/src/include 

INCDIRS “ “I. -1$ (INCDIR) 

f 

# Define the libraries to search. This includes the HISDE library, the local user 
f interface library, and all required X libraries. 

* 

LIBRARIES ” -lui -lhisde -lXm -lXt -1X11 


« 

# Define the compiler and linker flags. 

* 

CFLAGS - -O $ (INCDIRS) 

LDFLAGS - -0 $ (EXTRAFLAGS) 

* 

# Define all objects which make up this target. 

* 

OBJS -\ 

save_pbi.o\ 
cbr_file .o\ 
cbr_clear .o\ 
cbr_edit_t rm . o \ 
h_pbi_edit . o 

* 

* Define all header files required. 

* 

HDRS -\ 

$ (INCDIR) /h_user_inter ,h\ 

$ ( INCDIR) /h_pbi_edit . bit\ 

$ (INCDIR) /h_pbi_edit . h\ 

$ (INCDIR) /hisde.h 

* 

# Make the target. 

* 

all: $ (TARGET) 

$ (TARGET): $ (OBJS) 

$(CC) -O $0 $ (OBJS) $ (LIBRARIES) $ (LDFLAGS) 
strip $ (TARGET) 
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mv $ (TARGET) $ (BINDIR) 

$ (OBJS) : $ (HDRS) 





/************* 
* MODULE NAME 
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***************************************** 
AND FUNCTION: ( h_pbi_edit ) 


* ★ 


★★***★★***★* 



- - * T hi3 HISDE client is provides a convienient means by which the user can build and edit * 

* Push-Button indicator <PBI) files. A PBI file is used to display a grid of buttons 

* which may be selected to initiate some type of event. This is a rough emulation of * 

* the PBI machines present on the MCC floor. For more information on PBI's, refer to * 

* the documentation on the (h pbi) client. 


★ 

* 

* 

* 

★ 

* 

it 

it 

it 

it 

it 

it 

* 

★ 

* 

* 

* 

it 

it 

* 

* 

★ 


All PBI files are simply ascii files which contain a logical record for each PBI item. * 
For a discussion of the format of these records, refer to the documentation in the * 
(h_pbi) client. ^ 


When this client executes, it will present a window focused on a text widget (with * 

scrollbar) which allows any PBI file to be viewed and edited. In addition, the user * 

may select any of the following commands: * 

Exit - Exit from the this client . * 

Clear - Clear the text widget of all data. * 

Load - Load the contents of a PBI into the text widget. Note that this erases * 

the current contents of this window. * 

Merge - Merge the contents of a PBI at the current text widget cursor position. * 

Note that the current contents of the window will not be removed. * 

it 

Save - Save the contents of the PBI to a file. Note that the current contents of * 
the window will not be removed. * 


it Note that in order to use the load, merge, or save commands, the user must first enter * 

* a PBI filename. A PBI filename is simply the name of the file. It may be any normal * 

* UNIX path name, which includes either a full pathname or a partial path. Note that * 

* the filename itself is free format. The user is free to choose his own naming stan- * 

* dards and extensions. * 


* 


* DESCRIPTION OF MAIN FUNCTION: 

it 

* This is the main function of the h p bi edit client. It is responsibile for initial— 

* ization of the resource database and all widgets which make up the client window. 

* Once all widgets and their associated callbacks are initialized and realized, this 

* routine calls the Xtoolkit intrinsic (XtMainLoop) to process all incoming events. 


* 


* 

it 

it 

it 

it 

it 

it 

it 

it 

it 

it 

■k 

it 

★ 

* 

★ 


The window presented by this client consists of a hierarchy of widgets. Essentially, 
it consists of a main form with several child forms, each of which present one major 
function. Each child form in turn controls several widgets. The full hierarchy of 
widgets is summarized below: 


top 


> form — + — > form 


I 


(Client ) 
(ID ) 


— + — > label 

+ — > command (clear PBI) 

+ — > command (exit client) 


+ — > form (PBI ) 

I 

+ — > form (Filename) 
(Function) 


— + — > text (actual PBI data) 


— + — > label 
+ — > text 
+ — > command 
+ — > command 
+ — > command 


(filename data) 
(load command) 
(merge command) 
(save command) 


★ Each of the forms used is offset from other forms to maintain a consistent layout of 

★ information. The widgets with each form are in turn offset from one another in the 

★ same way. This insures that homogenous widgets remain in close proximity and in a 


* 

* 

* 

★ 

* 

* 

* 

* 

* 

* 

* 

★ 

* 

* 

* 

★ 

* 

* 

* 

★ 

* 

* 

* 

* 

* 

★ 

* 

★ 
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* sensible arrangement . 

★ 

* Once this function calls XtMainLoop, there are a number of callback events which may 

* be executed. These functions, the command widgets to which they are tied, and the 

* operations they perform are as follows: 


★ 

function 

event 

operation 

* 

cbr edit terminate 

exit 

terminate h — pbi edit client 

* 

cbr_clear 

clear 

clear PBI text 

* 

cbr_load 

load 

load a PBI file 

it 

cbr_merge 

merge 

merge a PBI file 

it 

cbr save 

save 

save a PBI file 


* For more information on these callback functions, refer to the appropriate source 

* code file. 

* 


* SPECIFICATION DOCUMENTS: 

* 

* 

* 


/hisde/ req/ requirements 
/hisde/design/design 


* 

* 

* EXECUTION SEQUENCE: 

★ 

* 

* 

* 

★ 

* 

* 
it 


h_pb i_ed.it [-pbi pbi_file] 

-pbi pbi_file - optional parameter which allows the user to specify the initial 

pbi file to be edited. If an existing file is specified, it will * 
be loaded and displayed. 

it 

* 


* FILES USED AND APPLICATION DEFINED FORMATS: 

* 

* PBI File 


* 
* 
* 
* 
* 
t 
* 
* 
* 
* 
it 
* 
t 
* 
t 
* 

Software Engineering Section ★ 

Data System Science and Technology Department * 

Automation and Data Systems Division * 

Southwest Research Institute * 

*★**★**★★**★***★ *★***★******★***★★**★★★*****★★******★★***★**★★★*★**★******★***★**★★★★****/ 


A PBI file is a normal UNIX ascii file which contains an arbitrary number of 
logical lines. Refer to the documentation in the (h_pbi) client for a descrip- 
tion of valid PBI lines. 


'O' - Output 'I/O' - Input/Output) 
This routine initializes all declared widget variables. 


* 

* 

★ 

★ 

* 

* EXTERNAL DATA USED: ('I' - Input 

it 
it 

* 

* 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

* 


Mark D. Collier 


♦include <stdio.h> 

♦include <X11/Intrinsic.h> 
♦include <Xll/StringDefs ,h> 
♦include <X11/Cardinals .h> 
♦include <X11/Shell.h> 
♦include <Xll/MwmUtil.h> 
♦include <Xm/MainW.h> 
♦include <Xm/RowColumn . h> 
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•include <Xm/Form.h> 
♦include <Xm/FileSB.h> 
♦include <h_pbi_edit .bit> 
♦include <hisde.h> 
♦include <h_user_inter ,h> 
♦include <h ^p bi_ edit . h> 



char 


file [ SIZE_FILENAME + 1 ] - 


* Declare all widgets which will be used by this client. Again, this data is made 

* external to allow simple access in callback functions. 

*/ 


widget 


top, m_main, mb_main, mp_file, mp_edit, widget, 

f_pbi, t _pbi, 

f_f ile, l_f ile, t_file, 

f_popup, t _popup; 


/* 

* Declare all callback functions. 
*/ 


extern XtCallbackProc 


cbr_edit_terminate () , 
cbr_clear Or 
cbr file O; 


main ( argc, argv ) 
int argc; 

char **argv; 


( 

Define the application-specific resources allowed by this client. The only resource 

* which may be set is the initial PBI to be edited. Note that if the user specified 

* a PBI file, the pointer (fp) will be set to address it. 

*/ 


static XrmOptionDescRec options [] - { 

{ "-pbi", "Pbi", XrmoptionSepArg, NULL ) 

) ; 


static char *fp; 

static XtResource resources [] - { 

{ "pbi", "Pbi", XtRString, sizeof (char *), (Cardinal) ifp, 

NULL, ( caddr_t ) NULL ) 

} ; 


/* , 

* Initialize each of the callback lists used for the commands generating this type of 

* event. These include the exit, clear, and file commands. 

*/ 


static XtCallbackRec cb_terminate [ ] - { 

{ (XtCallbackProc) cbr_edit_terminate, ( caddr_t ) NULL ), 
{ (XtCallbackProc) NULL, <caddr_t)NULL ) 

) ; 


static XtCallbackRec cb_clear[ ) 
{ (XtCallbackProc) cbr_clear, 
{ (XtCallbackProc) NULL, 

) ; 


( caddr_t ) NULL ) , 
( c addr_t ) NULL ) 
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static XtCallbackRec cb_file[ ] - { 
{ (XtCallbackProc) cbr_f ile, 

{ (XtCallbackProc) NULL, 

} ; 


static XtCallbackRec cb_f ilel [ ] - ( 
{ (XtCallbackProc) cbr_f ile, 

{ (XtCallbackProc) NULL, 

} ; 


( caddr_t ) NULL }, 
( caddr_t ) NULL ) 


(caddr_t ) NULL }, 
( caddr_t ) NULL } 



Arg icon_arg, /* Argument used to initialize the graphic icon for 

* this client. 

*/ 

args[ 2 ]; /* Argument list used to initialize various widget 

* values. 

*/ 


Initialize the Xtoolkit, parse command line, and return the root widget which will be 
the parent of the window. 


top * Xtlnitialize ( NAME_SHELL, NAME^APLIC, options, XtNumber (opt ions ) , &argc, argv ) 


If there were arguments on the command line which could not be parsed, call the 
function <bad_syntax) to report the error, display the correct syntax, and exit from 
the client. 


if ( argc > 1 ) 

bad_syntax ( "h_pbi_edit [-pbi pbi_f ile] " ); 


Initialize the icon bitmap for this client. 


XtSetArg ( icon_arg, XtNiconPixmap, 

XCreateBitmapFromData ( XtDisplay (top) , XtScreen (top) ->root, 

hjpbi_edit_bits, h_pbi_edit_width, h_pbi_edit_height ) ) ; 

XtSetValues ( top, &icon_arg, ONE ) ; 

Parse all application-specific resources. The only resource which is present is 
the initial PBI to edit. If specified, the pointer (fp) will point to the specified 
PBI file. 


XtGetApplicationResources ( top, (caddr_t ) NULL, resources, XtNumber (resources) , 

NULL, ZERO ) ; 


Create the main window widget and the menu bar which will contain all commands . 


m_main - XmCreateMainWindow ( top, NULL, 0 ); 

XtManageChild ( m_main ) ; 

mbjmain - XmCreateMenuBar ( mjnain, NULL, 0 ); 

XtManageChild ( mb_main ) ; 
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* Create pulldown for file commands 4 
*/ 



mp file - XmCreatePulldownMenu ( mb_main, NULL, 0 ); 

create_cascade ( mb_main, mp_file, LABEL_FILE ) ; 

cb f ile [ 0 ] .closure - ( caddr_t ) CB_NEWf 

create_command ( mp_file, LABEL_NEW, cb_file ) ; 

cb file [ 0 ] .closure - (caddr_t) CB_MERGE; 

create_command ( mp_file, LABEL_MERGE, cb_file ); 

cb filet 0 ] .closure - (caddr_t) CB_SAVE; 

create_command ( mp_file, LABEL_S AVE , cb_file ); 

cb filet 0 ] .closure « (caddr_t) CB_SAVEAS; 

create_command ( mp_file, LABEL_SAVEAS , cb_file ) ; 

create command ( mp_file, LABEL_EXIT, cb_terminate ) ; 


/* 

* Create pulldown for edit commands . 
*/ 


mp_edit - XmCreatePulldownMenu ( mb_main, NULL, 0 ) ; 

create_cascade ( mb_main, mp_edit, LABEL_EDIT ); 

create command ( mp_edit, LABEL_CLEAR, cb_clear ) ; 


/* 

* Create the help cascade. 
*/ 


widget — create_cascade ( mb_main, NULL, LABEL_HELP ) ; 

XtSetArg ( args ( 0 ], XmNmenuHelpWidget, widget ); 
XtSetValues ( mb main, args, 1 ); 


* initialize the child form which will contain the actual PBI viewing/editing area. 

* Note that the text widget provides a scrollbar and is editable . 

*/ 


fpbi - create_form ( W_F_PBI_M, m_main ) ; 

t_pbi ” create_text ( W_T_PBI_M, f _pbi, 1, XmMULTI_LINE_EDIT, 1 ) ; 


* Define the areas which constitute the main window widget. 

*/ 

XmMainWindowSetAreas < m_main, mb_main, NULL, NULL, NULL, f_pbi ) ; 

* 

* Create the popup file selection widget. This includes attaching callbacks to the OK 

* and CANCEL pushbuttons 
*/ 

cb_file [ 0 ] .closure - (caddr_t) CB_OK; 

XtSetArg { args [ 0 ] , XmNokCallback, cb_f ile ) ; 

cb_f ilel [ 0 ] .closure - (caddr_t) CB_CANCEL; 

XtSetArg ( args [ 1 ] , XmNcancelCallback, cb_f ilel ) ; 
f popup - XmCreateFileSelectionDialog ( top, args, 2 ) ; 

XtSetArg ( args [ 0 ] , XmNmwmlnputMode, MWM INPUT APPLICATION MODAL ) , 

XtSetValues ( XtParent ( f_popup ), args, 1 ); 

* 

* Save the widget pointer for the text widget in the file selection box. 
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t_popup - XmFileSelectionBoxGetChild ( f_popup, XmD I ALOG_TEXT ) ; 


/* 

* Realize the top level widget. This causes the main form of this client to be 

* displayed . 

*/ 


XtRealizeWidget ( top ) ; 

/* 

* If the user specified a PBI file, load it into the text widget. 

*/ 

if ( fp ) { 

strcpy ( file, fp ) ; 

cbr_f ile ( NULL, CB_MAIN, NULL ) ; 

} 

/* 

* Enter the normal Xtoolkit main loop, which coordinates processing of 

* the various widget events. This loop will terminate normally when the user selects 

* the "Exit" command. 

*/ 


} 


XtMainLoop ( ) ; 
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/t**************** ****************************** ******** 

* MODULE NAME AND FUNCTION ( cbr_clear ) 



* 

★ 


* The callback function is executed when the user selects the clear command widget. It * 

* simply clears the text widget which presents the current PBI. 


* SPECIFICATION DOCUMENTS: 


* /hisde/ req/ requirements 

* /hisde/design/design 


* 


* 

* EXTERNAL DATA USED: 

★ 

* t_pbi (Widget) 

* 


(fjr - Input 'O' - Output 'I/O' - Input/Output) 

(I) - Pointer to the text widget containing the PBI. 


* 

* 

* 

★ 

* 

* 


* 

* ORIGINAL AUTHOR AND IDENTIFICATION: 


* 


* 

★ 

★ 

★ 

★ 


Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 






* 

* 

* 

It 

/ 


♦include <X11/Intrinsic .h> 


extern widget t _pbi; 


XtCallbackProc cbr_clear 
Widget widget ; 


widget, closure, calldata ) 

I* set to the widget which initiated this callback 
* function. 

*/ 


caddr_t closure, /* Callback specific data. This parameter is not 

* used by this function. 

*/ 

calldata; /* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 


( 

I* 

* Clear all text from the PBI text widget. 
*/ 


clear_text_widget ( t _pbi ) ; 


} 
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/★★★A************************************************************************************* 

* MODULE NAME AND FUNCTION ( cbr edit terminate ) 


This callback function is activated when the user selects the exit command widget, 
is responsible for normal termination of the h_pbi_edit client. It simply destroys 
the top level widget, which in turn causes all subordinate widgets to be destroyed. 


SPECIFICATION DOCUMENTS: 

/hisde/ req/ requirements 
/hisde /design/design 


It 


* EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input/Output ) 

* 

* top (Widget) (I) - Pointer to the root widget of the main window. 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 


* 

★ 

* 

* 


Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 




r ★ ★ j 


♦include <X11/Intrinsic .h> 


extern Widget top; 


XtCallbackProc cbr_edit_terminate ( widget, closure, calldata ) 


Widget widget ; 


caddr_t closure. 


calldata; 


{ 

XEvent event ; 


/* Set to the widget which initiated this callback 

* function. 

*/ 

/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client . This parameter is 

* is not used by this function. 

*/ 

/* Event structure needed to make the calls to the 

* XtNextEvent and XtDispatchEvent functions. 

*/ 


/* 

* Destroy the root application shell widget and thereby, all subordinate widgets which 

* make up the window. 

*/ 


XtDestroy Widget ( top ) ; 


/* 

* Determine if any events have been queued. These will normally be events which 

* cause the widgets destroy callback to be executed. Waiting and then processing 

* the events insures that all data structures initialized by the widgets are 

* properly deallocated. 
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XtNext Event ( & event ) ; 

XtDispatchEvent ( fievent ) ; 


/* 

* Close the display to deallocate any connections set up by X Windows 

* exit from the client. 

*/ 

XCloseDisplay < XtDisplay ( top ) ) ; 

exit ( 0 ) ; 


Next 
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* MODULE NAME AND FUNCTION ( cbr_save ) * 




* The callback function is executed when the user selects the save command widget. It 

* verifies the current contents of the PBI and if valid, saves them to the specified 

* filename. Note that this function does not check in any way, the format of the PBI 

* information. This may be added later when the final format is better defined. 

* 

★ 

* SPECIFICATION DOCUMENTS: 

★ 

* /hisde/ req/ requirements 

* /hisde /design/design 

* 

★ 


V 


* 


★ 

* 

* 

* 

it 

* 


* 


* 

* 

* 


* EXTERNAL DATA USED: ('I 

* 


★ 

★ 

* 

* 

* 

★ 


' - Input 'O' - Output 'I/O' - Input/Output) 
t_pbi (Widget) (I) - A pointer to the text widget used to display the PBI. 

file <char[]) (I) - String containing the current filename, 

pbi (char[]) (I/O) - String containing the current PBI. 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 


it 

It 

it 

it 


Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 






♦include <stdio.h> 

♦include <X11/Intrinsic .h> 
♦include <hisde.h> 

♦include <h_user_inter ,h> 
♦include <string.h> 


int save_pbi ( file, t_pbi ) 


char 

‘file; 

Widget 

t _pbi; 

FILE 

*fp; 


register char *p, 


*pbi; 


/* Function returns a value indicating whether or not 

* the file could be saved: 

★ 

* 0 - Success 

* -1 - Failure 
*/ 

/* File to save the contents of the PBI to. 

V 

/* Text widget containing the PBI data. 

V 


/* File pointer used to open and write into the 

* PBI file. 

*/ 

/* Pointer used to step through the PBI and write 

* into file. 

*/ 

/* Pointer to pbi text returned from widget. 

*/ 


/* 

* Retrieve all text from the widget. 
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pbi - get_text_widget ( t_pbi ) ; 


Open the file for write access. If an error occurs, output a message to the 
system message client and return. 


if ( ( fp - fopen ( file, "w" ) ) — NULL ) { 

harness age ( MSG_WAFNING, "Could not open the specified file" ) ; 

XtFree ( pbi ) ; 

return; 


Write all PBI data to the file. When complete, free memory allocated for the widget 
text . 


p - pbi; 
while ( *p ) 

putc ( *p++, fp ) ; 

XtFree ( pbi ) ; 


Close the file. If an error occurs while closing the file, output a message to the 
system message client. Otherwise, inform the user that the file was successfully 
saved. 


if ( fclose ( fp ) ) , , ___ ... „ . 

return ( display_message ( MSG_ERROR, "Could not properly close the PBI file ) ) , 

display_message ( MSG_INFORMATION, "PBI file was successfully saved" ); 
return ( 0 ) ; 
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* MODULE NAME AND FUNCTION ( cbr_file ) - 

* 

\ 

* This callback function is executed when the user selects the load command widget* It * 

* opens the filename specified by the user, reads all contained data, and places it into * 

* the PBI text widget. In doing so, any previously displayed PBI will be removed. 

* 


* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/ requirement s 

/hisde/design/design 


★ 

* 
it 

* EXTERNAL DATA USED: ('I 

★ 

★ 

* 

★ 

★ 
it 
it 
★ 

* 

* 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

* 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

* Automation and Data Systems Division 

* Southwest Research Institute 
*************************************************************************** 


Input '0' - Output 'I/O' - Input/Output) 
t _pbi (Widget) (I) - A pointer to the text widget used to display the PBI < 

f_popup (Widget) (I) - A pointer to the form widget used for the popup, 

t _popup (Widget) (I) - A pointer to the text widget used for the popup, 

file (char [ ] ) (I/O) - String containing the current filename. 


♦include <stdio.h> 

♦include <X11/Intrinsic .h> 
♦include <Xm/FileSB.h> 
♦include <hisde . h> 

♦include <h_user_inter *h> 
♦include <h_pbi_edit . h> 


extern char file[ ]; 

extern Widget t_ pbi, 

f ' J popup , t_popup ; 


XtCallbackProc cbr_file ( widget, closure, calldata ) 


Widget widget ; 


caddr_t closure. 


calldata; 


{ 


/* Set to the widget which initiated this callback 

* function. 

*/ 

/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. ^ 

*/ 


static int 


start cmd 


1; /* Static value used to contain the command which 
* initiated the popup display. 



register int 


char 
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*/ 



pos - -1? 


cmd, 


status; 


*f ile — temp; 


/ * paramter for (load_J:ext_widget) . Causes new 

* data to replace or be merged into the current 

* PBI text widget, 

*/ 

/* Set to the command which initiated this callback. 

* / 

/* Used to save the status of calls made to load and 

* save PBI' s . 

*/ 

/* Temporary string which will point to the filename 

* specified in the popup. 

*/ 


/ *x Convert the (closure) parameter to a normal value to ease comparison 

*/ 


cmd - (int) closure; 



If the function was called from the main 
after a normal popup. First save file in 
look like a new call after the popup. 


(command line argument) , simulate a call 
the popup text widget and then make it 


if { cmd -- CB_MAIN ) { 

update_text_widget ( t_popup, file ) ; 
start_cmd “ CB_NEW; 
rmrf - CB_OK ; 

} 


/* 


If a PBI command (instead of a popup), save the comnmnd and if no file yet 
specified or the command requires a new filename, display the popup with the current 

filename. 


if ( cmd CB_NEW I I cmd — CB_MERGE I I cmd — CB_SAVE I I cmd CB_SAVEAS ) { 

start cmd ” cmd; 

if ( filet 0 ] NULL I I cmd !- CB_SAVE ) { 
update_text_widget ( tjpopup, file ) ; 

XtManageChild ( f_popup ) ; 
return; 

) 

) 


/ * At this point assume that popup is displayed and a file was entered, so remove 
* the popup (this is unnessary if called from the main function) . 

*/ 

XtUnmanageChild ( f _popup ) ; 

7 * If user selected cancel or help commands on the popup, simply return. 

*/ 

if ( cmd — CB_CANCEL | I cmd — CB_HELP ) 
return; 

/* 




Get the text from the widget 


,/h_pbi_edit/cbr_file.c 


file_temp - get_text_widget ( t_popup ) ; 


Process the commands. If new or merge, then if merge, get the current position of 
the cursor. Next attempt to load the file into the text widget at the appropriate 
position (beginning or at cursor position) . Note that if (pos) is still -1, the 
new data will replace the old data. 


if ( start_cmd -- CB_NEW | | start_cmd — CB_MERGE ) { 
if ( start_cmd — CB_MERGE ) 

pos - get_text_insertion_widget ( t_pbi ) ; 

if ( status - load_text_widget ( file_temp, tjpbi, pos ) ) 

display_message ( MSG_WARNING, "Could not open the specified file" ) ; 


Otherwise (save commands), save the pbi to the file. Error messages are generated 
internally to this function. 


} else 

status - save_pbi ( file_temp, t__pbi ) ; 


If the command was not merge (which does not change the filename) and if a new 
command did not fail, update the filename with the new name. 


if ( start_cmd !- CB_MERGE 44 ! ( start_cmd — CB_NEW 44 status ) ) 

strcpy ( file, file_temp ) ; 

XtFree ( f ile_temp ) ; 
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############################*»#*#*##**##*********** ####################################### 

# Makefile for HISDE user interface client (h_talk) * 

########################*###*#*#*##**#** # ** ############################################## * 


# 

# Define the target which this file is to create. 

* 

TARGET - h_talk 

# 

# initialize include and library search paths to include current directory and the 

# HISDE directories . Note that the library path also includes the user interface 

# library. 

# 

BINDIR - /hisde/bin 

INCDIR - /hisde/src/include 

INCDIRS ** -I. -1$ (INCDIR) 

# Define the libraries to search. This includes the HISDE library, the local user 

# interface library, and all required X libraries. 

# 

LIBRARIES ” -lui -lhisde -lXm -lXt -1X11 


* 

# Define the compiler and linker flags. 

# 

CFLAGS - -0 $ (INCDIRS) 

LDFLAGS - -0 $ (EXTRAFLAGS) 


* 

* Define all objects which make up this target. 

# 

OBJS -\ 

cbr_node .o\ 
cbr_clear . o\ 
cbr_send.o\ 
tmr_recv.o\ 
cbr_talk_trm. o\ 
h talk.o 


* 

# Define all header files required. 

* 


HDRS «\ 

$ (INCDIR) /h_user_inter.h\ 
$ (INCDIR) /h_talk.bit\ 

$ (INCDIR) /h_talk.h\ 

$ (INCDIR) /hisde.h 


* 

# Make the target . 

# 

all: $ (TARGET) 

$ (TARGET): $ (OBJS) 

$(CC) -o $0 $ (OBJS) $ (LIBRARIES) $ (LDFLAGS) 
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atrip $ (TARGET) 

mv $ (TARGET) $(BINDIR) 

$ (OBJS) : $ ( HDRS ) 
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/************************************************ 

* MODULE NAME AND FUNCTION: < h_talk ) 

* This client provides a simple means for a user to interactively communicate with a 

* user on a different workstation. In this sense, it is a X Windows based version of 

* the UNIX (write) command. In addition, this client uses the HISDE pipe manager for 

* all inter-node communication. It therefore provides a good demonstration of this ap- 

* plications cababilities . 

* When this client executes, it will display a window which presents three basic fields. 

* These fields are as follows: 


* Node Name - This is the name of the node to which the user would like to communi- 

* cate. It may be any existing node name in the network. 

* Send Text - This field allows the user to interactively enter the text which he 

* would like to send to the remote node. This field includes commands 

* which allow the user to clear and send the text. 

* Receive Text - This field will be updated when new text is received. It will ap- 

* pend the new text to the end of the existing text . This field will 

* be cleared when it reaches the maximum allowable size. It may also 

* be cleared by the user with the clear command. 

* Note that this client must be executing on the node to which communcation is desired. 

* It is also necessary for the user on the remote system to specify the local user s 

* node. This establishes a connection between the two nodes. If these two steps are 

* not performed, no communications will be possible. 


Send Text - 


Receive Text 


* DESCRIPTION OF MAIN FUNCTION: 

★ 

* This is the main function of the h_talk client. It is responsible for initialization 

* of the resource database and all widgets which make up the client window. Once all 

* widgets and their associated callbacks are initialized and realized, this function 

* calls the Xtoolkit intrinsic (XtMainLoop) to process all incoming events. 

* 

* The window presented by this client consists of a hierarchy of widgets. Essentially, 

* it consists of a main form with several child forms, each of which present one major 

* function. Each child form in turn controls several widgets. The full hierarchy of 

* widgets is summarized below: 

* 

* top > form -— + — > form (Client ) label 


+ — > command (exit client) 


+ — > form (Nodename) — + — > label 


+ — > command (change node) 


+ — > text 


(nodename data) 


+ — > form (Send 
| (Window 


) — + — > label 

) +--> command (clear command) 

+ — > command (send command) 

+ — > text (send data) 


+ — > form (Receive ) — + — > label 

+ — > command (clear command) 
+ — > text (receive data) 


★ Each of the forms used is offset from other forms to maintain a consistent layout of 

★ information. The widgets with each form are in turn offset from one another in the 

* same way. This insures that homogenous widgets remain in close proximity and in a 

* sensible arrangement. 


* Once this function calls XtMainLoop, there are a number of callback events which may 




* bo executed . These functions, the command widgets to which they are tied, and the 


★ 

* 

operations they perform 

are as follows: 


* 

* 

function 

event 

operation 

★ 

cbr_talk_terminate 

exit command 

terminate client 

* 

cbr_node 

set node command 

set the node with which to communicate 

* 

cbr_clear 

clear command 

clear send or receive text 

* 

cbr_send 

send command 

send text to the node 

* 

★ 

tmr_recv 

timer 

check if data was received 


* For more information on these callback functions, refer to the appropriate source 

* code file. 

* 

* 

* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/ requirements 

* /hisde/ design /design 

* 

★ 

* EXECUTION SEQUENCE: 

★ 

* h_talk [-node nodename] 

★ 

* -node nodename - optional argument which if specified, will cause communications 

* to the indicated node to be initiated. 

* 

★ 

* EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input/Output) 

★ 

* This routine initializes all declared widget variables. 

* 

★ 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 


★ 

* 

* 

★ 


Mark D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 






♦include <stdio.h> 

♦include <X11/Intrinsic .h> 
♦include <Xll/StringDef s .h> 
♦include <X1 1 /Cardinals .h> 
♦include <X11/Shell.h> 
♦include <Xll/MwmUtil .h> 
♦include <Xm/MainW.h> 
♦include <Xm/RowColumn . h> 
♦include <Xm/Text.h> 
♦include <Xm/Form.h> 
♦include <hisde.h> 

♦include <h_user_inter .h> 
♦include <h_talk.h> 

♦include <h talk.bit> 


/* 

* Declare the variable which is set to the connection value needed to send and receive 

* data from the connected workstation node. This variable is initialized to -1 to 

* indicate that it is not a connection number. Note that this variable is external 

* to allow its use in each of callback and timer functions which require it. 




pipe_num » -1; 
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*/ 

int 



* Declare all widgets. Again, they are made external to allow usage in any of the 

* callback and timer functions. 

*/ 


widget 


top, m_main, mb_main, mp_file, mp_edit, form, widget, 

t_send, t_recv, 

f_popup, c_popup, t_popup; 


* Declare the callback functions which are executed when the corresponding command 

* widgets are selected. 

*/ 

XtCallbackProc cbr_talk_terminate 0 , 
cbr_node 0 * 

cbr_clear 0 t 

cbr send ( ) • 


* Declare the timer function which is executed at a constant interval to determine if 

* any data has been received. 

*/ 

XtTimerCallbackProc tmr_recv(); 


main ( argc, argv ) 
int argc; 

char **argv; 


( 

/* 


★ 

* 

★ 

*/ 


Define the application-specific resources allowed by this client 
which may be set is the initial node with which to communicate, 
user specifies a node, the pointer (fp) will address the string. 


The only resource 
Note that if the 


static char *fp; 

static XrmOptionDescRec options!] ■ { 

( "-node", "Node", XrmoptionSepArg, NULL } 

}; 


static XtResource resources!] - ! 

{ "node", "Node", XtRString, sizeof(char *), (Cardinal) £fp, 
NULL, ( caddr_t ) NULL ) 

); 


t * Declare all the callback lists which are needed to initialize the various 

* command widgets and callback functions. These include the termination, node 

* initialization, text clear, and text send functions. 

*/ 


static XtCallbackRec cb_terminate [] - ( 

{ (XtCallbackProc) cbr_talk_terminate, <caddr_t)NULL ), 
( (XtCallbackProc) NULL, (caddr_t)NULL ) 

) ; 

static XtCallbackRec cb_node[] ” { 
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} ; 


( (XtCallbackProc) cbr_node, 
{ (XtCallbackProc) NULL, 


( caddr_t ) NULL }, 
( caddr_t ) NULL ) 


static XtCallbackRec cb_clear[] * { 
( (XtCallbackProc) cbr_clear, 

{ (XtCallbackProc) NULL, 

} ; 


static XtCallbackRec cb_send[] - { 
( (XtCallbackProc) cbr_send, 

{ (XtCallbackProc) NULL, 

) ; 


(caddr_t) NULL ), 
(caddr_t) NULL ) 


( caddr__t ) NULL ), 
( caddr_t ) NULL ) 


Arg icon_arg, 
arga [ 1 ] ; 

static char nodef SIZE_NODE +1 ] - 


* n ^^ a ii ze Xtoolkit, parse command line, and return the root widget which will be 
the parent of the window. 


top - Xt Initialize ( NAME_SHELL, NAME_APLIC, NULL, ZERO, targe, argv ) ; 

If there were arguments on the command line which could not be parsed, call the 
function (bad_syntax) to report the error, display the correct syntax, and exit from 


if ( arge > 1 ) 

bad_syntax ( "h_talk [-node nodename]" ); 


initialize the icon bitmap for this client . 


Xt Set Arg ( icon_arg, XtNiconPixmap, 

XCreateBitmapFromData ( XtDisplay (top) , XtScreen (top) ->root, 
h_talk__bits, h_talk_width, h_talk_height ) ) ; 


XtSet Values ( top, ticon_arg, ONE ) ; 


Parse all application— specific resources, 
the initial node to communicate with. If 
the specified node name. 


The only resource which is present is 
specified, the pointer (fp) will address 


XtGetApplicationResources ( top, (caddr_t)NULL, resources, XtNumber (resources) , 

NULL, ZERO ) ; 

if ( fp ) 

strepy ( node, fp ) ; 

Create the main window widget and the menu bar which will contain all commands. 


m_main - XmCreateMainWindow ( top, 
XtManageChild ( m_main ) ; 


, NULL, 0 ) ; 




mb_main - XmCreateMenuBar 
XtManageChild ( mb_main ) ; 
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m main, NULL, 0 ) 



/* 

* Create pulldovm for file commands. 
*/ 


cb_node [ 0 ] .closure - (caddr_t) CB_NODE; 
mp file - XmCreatePulldownMenu ( mb_main, NULL, 

create_cascade ( mb_main, mp_file, LABEL_FILE 

create command ( mp_file, 

create_command ( mp_file, 

create command ( mp_file. 


LABEL_NODE, 
LABE L_S END, 
LABEL EXIT, 


0 ) ; 

cb_node 
cb_send 
cb terminate 


) ; 
) ; 
) ; 
) ; 


/* 

* Create pulldown for clear commands. 
*/ 


mp edit - XmCreatePulldownMenu ( mb_main, NULL, 0 ); 

create cascade ( mb_main, mp_edit, LABEL_EDIT ) » 

create command ( mp_edit, LABEL_CLEAR, cb_clear ) ; 


/* 

* Create the help cascade. 
*/ 


widget m create_cascade ( nn , mb_main, NULL, LABEL_HELP ) ; 
XtSetArg ( args [ 0 ], XmNmenuHelpWidget, widget ); 

XtSet Values ( mb_main, args, 1 ) ; 


/* 

* Create the form which is used for the main information window. This form will be 

* the parent to all widgets except those used for the monitor windows. 

*/ 


form “ create form ( m_main ) ; 


/* 

* Create send text widget . 
*/ 


t send 


create_label ( W_L_SEND_M, form, 
create text ( W T SEND_M, form. 


LABEL_S END_W ) ; 

1, XmMULTI_LINE_EDIT, 1 ) / 


/* 

* Create receive text widget . 

*/ 

create_label ( W_L_RECV_M, form, LABEL_RECV_W ) ; 
t recv - create_text ( W_T_RECV_M, form, 1, XmMULTI_LINE_EDIT, 0 ); 


* Create the dialog shell used for the popup. Note setting the MODAL flag on the 

* widget returned by (XmCreateDialogShell) does not work. Therefore we get the 

* parent of the form and set the value on it. 

*/ 


f popup - XmCreateFormDialog ( top, W_F_POPUP_S, NULL, 0 ) ; 

XtSetArg ( args[ 0 ], XmNmwmlnputMode, MWM_INPUT_APPLICATION_MODAL ); 
XtSet Values ( XtParent ( f _popup ) , args, 1 ) ; 


/* 

* 

*/ 


Create the label, commands, and text widgets in the popup. 
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create_label ( W_L_POPUP_S, fj popup, "Enter Node:" ); 
cb_node[ 0 ] .closure - (caddr_t ) CB_OK; 

cjpopup - create_command ( W_C1_P0PUP_S, f_popup, LABEL_OK, cb_node ) ; 

cb_node[ 0 ] .closure - (caddr_t) CB_CANCEL; ~~ 

create__command ( W_C2_POPUP_S, f_popup, LABEL__CANCEL, cb_node ) ; 
cb_node[ 0 ]. closure - (caddr_t)CB_HELP; 

create_command ( W_C3_P0PUP_S, f_popup, LABEL_HELP, cb_node ) ; 

tjpopup - create_text ( W_T_POPUP_S, f_popup, node, 0, XmSINGLE_LINE_EDIT, 1 ) ; 


Set argument on first command to indicate that it is the default. 


XtSetArg ( args [ 0 ], XmNshowAsDef ault, TRUE ); 
XtSetValues { c_popup, args, 1 ); 


Initialize the first iteration of the timer. This will cause the (tmr_recv) 
callback routine to be executed. “ 


XtAddTimeOut ( TIME REVALUE, tmr_recv, NULL ) ; 

Realize the top level widget. This causes the main form of this client to be 
displayed. 

XtRealizeWidget ( top ) ; 

If the user specified a node name, call the (cbr_node) function to attempt to 
initialize the node. 


if ( fp ) 

cbr_node ( NULL, CB_MAIN, NULL ) ; 


Enter the normal Xtoolkit main loop, which coordinates processing of the various 
widget events. This loop will terminate normally when the user selects the 
"Exit" command. 


XtMainLoop ( ) ; 
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/a**************************************************************************************** 



* MODULE NAME AND FUNCTION ( cbr_clear ) 

* This callback function is activated when the user selects the clear command. 

* causes the send and receive message areas to be cleared. 

* 


* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/ requirements 

* /hisde/design/design 

* 

* 


This * 

★ 

* 
★ 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

;^oi.v.iucuu 

* Automation and Data Systems Division * 

* Southwest Research Institute * 

*****************************************************************************************/ 


* EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input/Output ) 

t send (Widget) (I) - Pointer to the widget containing the send text. 

t_recv (Widget) (I) - Pointer to the widget containing the receive text. 


★ 

★ 

★ 

★ 

* 

★ 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

★ Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 


♦include <X11/Intrinsic .h> 


extern widget t_send, 
t recv; 


XtCallbackProc cbr_clear ( widget, closure, calldata ) 
Widget widget ; 


/* Set to the widget which initiated this callback 
* function. 

*/ 


caddr t closure, 


calldata; 


{ 

/* 

* Clear the two widget . 
*/ 


/* Callback specific data. This value is set to the 

* widget which is to be cleared by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 


clear_text_widget ( t_send ) ; 
clear text_widget ( t_recv ) ; 


} 
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/a******************************************************************** 
* MODULE NAME AND FUNCTION ( cbr node ) 




* 


* This callback function is executed whenever the user enters a node name and selects 

* the node command widget. This action indicates that the user wants to talk to a dif- 

* ferent workstation. This function closes any existing connection and then attempts to 

* open a connection to the requested workstation. If it completes successfully, the 

* external variable (pipe_num) will be set to the appropriate connection number needed 

* to send and receive information from the workstation. 


★ 


* SPECIFICATION DOCUMENTS: 

* 

* /hisde/req/ requirements 

* /hisde/design/design 


* 


* EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input/Output) 

* pipe_num (int) (I/O) - On input, this value is set to the current connection 

* number (if any) . On exit, it will be set to the new 

* number if a connection can be made . 

* 

popup (widget) (I) - Pointer to the popup form widget. Needed to manage and 

* unmanage the popup. 

* 

* t^popup (Widget) (I) - Pointer to the popup text widget. Needed to retrieve 

* the specified node. 

* 


* 

it 

it 

it 

* 

it 

it 

it 

it 

it 

* 

* 

* 

★ 

★ 

it 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 


Mark. D. Collier - Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 






******* j 


♦include <X11/Intrinsic .h> 
♦include <pm_constants . h> 
♦include <hisde,h> 

♦include <h_user_inter . h> 
♦include <h talk.h> 


extern Widget fjpopup, t_popup; 
extern int pipe_num; 


XtCallbackProc cbr_node ( widget, closure, calldata ) 

Widget widget; /★ set to the widget which initiated this callback 

* function. 

*/ 


caddr_t closure. 


/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client . This parameter is 

* is not used by this function. 

*/ 


calldata; 
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/* Static variable used to indicate whether or not a 
* popup is displayed. 

*/ 

/* UNIX error value which is set after system calls. 
*/ 

If not in popup, then if not called from main {called from menu) , set popup to 
TRUE and display the popup. 

if ( in^popup “ FALSE && {int) Closure !- CB_MAIN ) { 

in_ popup - TRUE; 

XtManageChild ( f _j>opup ) ; 


static int in_popup “ FALSE; 


char 

extern int 


*node; 

errno; 


Otherwise, remove the popup if displayed {it will not be in the call from 
the main function. 


} else { 

if ( in_popup ) { 

XtUnmanageChild { f _j>opup ) ; 
in_popup * FALSE; 

) 


If the command was CANCEL or HELP, return. 


if ( (int) closure — CB_CANCEL || (int) closure -- CB_HELP ) 
return; 


Retrieve the text from the popup text widget. If blank, return. 


node - get_text_widget ( t_popup ) ; 
if ( *node " NULL ) { 

XtFree ( node ) ; 
return; 


At this point, the callback will be CB_MAIN or CB_OK (and a node will have been 
entered) . If a connection is already open (user was communicating to another 
workstation), close the connection. If this fails, output a warning to the 
system message window and return. 


if ( pipe_num !- -1 && h_close ( pipe_num ) — -1 ) { 

display_message ( MS G — ERROR, "Could not close the existing connection" ) ; 

XtFree ( node ) ; 

return; 


Attempt to open a connection to the requested workstation. If the attempt fails 
because the (h_talk) client is not activeon the requested node, report that 
problem. If any other error occurs (pipe_num » -1), output a warning. Note 
that in both cases, the user will not be allowed to send (or receive) to the' 


./h_talk/cbr_node.c 

workstation . 



if ( { ( pipe_num - h_pipe ( node, APP1, APP2 ) ) — -1 ) && 

( errno — NO_SUCH_PROCESS ) ) 

display_message ( MSG_WARNING, "Could not find (h_talk) on requested node" ) ; 
else if ( pipe_num — -1 ) 

display_message ( MSG__WARNING, "Could not communicate with requested node" ) ; 


Otherwise, the connection was successfully opened, so output a message. 


else 

display_message ( MSG_INFORMATION, "Connection successfully established" ) ; 


XtFree { node ) ; 




./h_talk/cbr_send.c 


/****★*★★*★*★**★★*★*★★***★**★************************************************************* 

* MODULE NAME AND FUNCTION ( cbr_send ) * 

★ * 

* This callback function is executed when the user enters data into the send window and * 

* then selects the send command widget. This causes the entered data to be sent to the * 

* workstation for which communications are currently established. Note that this func- * 

* tion will output a warning if the user has not yet connected to a remote node. * 

* * 


* SPECIFICATION DOCUMENTS: 

★ 

* /hisde/req/ requirements 

* /hisde /design/ design 

* 

★ 

* EXTERNAL DATA USED: ('I' - Input 'O' - Output 'I/O' - Input/Output) 

* 

* pipe num (int) (I) - Set to the current connection number needed to send and 

* receive data from the workstation. 


* ORIGINAL AUTHOR AND IDENTIFICATION: 


Mark D. Collier 


Software Engineering Section 

Data System Science and Technology Department 
Automation and Data Systems Division 
Southwest Research Institute 




♦include <X11/Intrinsic .h> 
♦include <hisde.h> 

♦include <h_user_inter .h> 
♦include <errno.h> 


extern Widget t_send; 
extern int pipe_num; 


XtCallbackProc cbr_send ( widget, closure, calldata ) 


Widget widget; /* Set to the widget which initiated this callback 

* function. 

*/ 


caddr t closure. 


calldata; 


{ 

char *temp; 


/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 

/* Used to obtain the current contents of the send 

* window. 

*/ 


/* 

* If no connection has yet been established, output a warning to the system messsage 

* client. 

*/ 

if ( pipe_num •» -1 ) 
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( MSG WARNING, "You have not yet specified a remote node" ) 


/* 

* Otherwise, a connection has been made, so attempt to send the data to the remote 

* node. If this fails, output a message to the system message client. 

*/ 


else { 

temp - get_text_widget ( t_send ) ; 

if { h_write ( pipe_num, temp, strlen { temp ) ) — -1 ) 

display_message ( MSG_ERROR, "Could not write the requested data" ) ; 

} 


} 



./h_talk/cbr_talk_tim.c 


/★★a************************************************************************************** 

* MODULE NAME AND FUNCTION ( cbr_talk_terminate ) * 

★ * 

* This callback function is activated when the user selects the exit command widget. It * 

* is responsible for normal termination of this client. It simply destroys the top lev- * 


* el widget, which in turn causes all subordinate widgets to be destroyed. If neces- * 

* sary, it will also close the existing connection to the workstation. * 

* * 

* * 

* SPECIFICATION DOCUMENTS : * 

★ * 

* /hisde/req/requirements * 

* /hisde/design/design * 

* * 

* * 

* EXTERNAL DATA USED: {'I' - Input 'O' - Output 'I/O' - Input /Output ) * 

* * 

* pipe_num (int) (I) - Set to the number required to communicate with the con- * 

* nected workstation. * 

* * 

* top (Widget) (I) - Pointer to the root widget of the main window. * 

★ * 

★ * 

* ORIGINAL AUTHOR AND IDENTIFICATION: * 

* it 

* Mark D. Collier - Software Engineering Section * 

* Data System Science and Technology Department * 

* Automation and Data Systems Division * 

* Southwest Research Institute * 






♦include <X11/Intrinsic .h> 
♦include <hisde.h> 


extern Widget top; 


extern int 


pipe_num; 


XtCallbackProc cbr__talk_terminate ( widget, closure, calldata ) 


Widget widget ; 


caddr_t closure, 


calldata; 


{ 

XEvent event ; 


/* Set to the widget which initiated this callback 

* function. 

*/ 

/* Callback specific data. This parameter is not 

* used by this function. 

*/ 

/* Specifies any callback-specific data the widget 

* needs to pass to the client. This parameter is 

* is not used by this function. 

*/ 

/* Event structure needed to make the calls to the 

* XtNextEvent and XtDispatchEvent functions. 

*/ 


/* 

* If a connection is open <pipe_num <> -1), attempt to close. If this fails, 

* output an error to the system message client. 

*/ 


./h_talk/cbr_talk_trm.c 


if ( pipe_num !• -1 && h_close ( pipe_num )-«-!) 

display_message { MSG_ERROR, "Could not close the established connection" ) ; 

/* 

* Destroy the root application shell widget and thereby, all subordinate widgets which 

* make up the window. 

*/ 

XtDestroyWidget { top ) ; 

/* 

* Determine if any events have been queued. These will normally be events which 

* cause the widgets destroy callback to be executed. Waiting and then processing 

* the events insures that all data structures initialized by the widgets are 

* properly deallocated. 

*/ 

XtNextEvent ( ievent ) ; 

XtDispatchEvent ( &event ) ; 

/* 

* Close the display to deallocate any connections set up by X Windows. Next 

* exit from the client. 

*/ 

XCloseDisplay ( XtDisplay ( top ) ) ; 
exit ( 0 ) ; 





./h_talk/tmr_recv.c 


/***************************************************************************************** 

* MODULE NAME AND FUNCTION ( tmr_recv ) # 

* This timer function is executed at a defined interval, at which time is determines if * 

* any data has been sent from the connected workstation. If data has been received, 

* this function will update the receive window (t_recv widget) with the new text. ^ 


* SPECIFICATION DOCUMENTS: 

★ 

* /hisde/req/ requirements 

* /hisde/design/design 


p ipe__num { i n t ) 


* EXTERNAL DATA USED: ('I 

★ 

* 

* 

★ 

* t_recv (Widget) (I) 

★ 


' - Input 'O' - Output 'I/O' - Input /Output) 

(I) - Set to the current connection number needed to send and 
receive data from the workstation. 

Pointer to the text widget which will be updated in new 
data is received. 


* ORIGINAL AUTHOR AND IDENTIFICATION: 

* 

* Mark D. Collier - Software Engineering Section 

* Data System Science and Technology Department 

★ Automation and Data Systems Division 

★ Southwest Research Institute 

★★★★★★★★A***************************************************************************** 


* 

* 

it 

it 

* 

* 

★ 

it 

* 

★ 

* 

* 

* 

It 

it 

★ 

* 

it 

* 

* ★ * f 


♦include <Xll/Intrinsic.h> 
♦include <pm_constant s . h> 
♦include <sys/ipc.h> 
♦include <errno.h> 

♦include <hisde.h> 

♦include <h_user_inter ,h> 
♦include <h talk.h> 


extern Widget t_recv; 
extern int pipe_num; 


XtTimerCallbackProc tmr_recv ( client_data, id ) 


caddr t client_data; /* Character data passed to this callback function. 

* It is currently unused by this function. 

*/ 


Xtlntervalld id; /* Identifies the timer which caused this function to 

* be activated. 

*/ 

register int len; /* Set to the number of bytes returned from the 

* pipe manager. 

*/ 


char new_recv[ SIZE_PIPE_BUF + 1 ], 

/* Buffer into which the received data is saved. 

*/ 

/* Used to get the current string (length) . 


*temp; 



extern int errno; 


./h_talk/tmr_recv.c 


*/ 

/* UNIX error message. Needed to determine pipe 
* manager errors. 

*/ 


/* 

* Determine if a connection has already been opened. 

V 


if ( pipe_num !- -1 ) { 


/* 

* 

★ 

★ 

* 

* 

* 

*/ 


/* 

* 

* 


*/ 


Attempt to read from the connected workstation. Note that this call will return 
if no data is pending (it will not block) . If the call completes successfully, 
check if the string is terminated by a newline. If not, add a newline to the 
end of the string. Note that in either case, the string will be NULL terminated, 
as (h_read) will not perform this automatically. Note also that the newline is 
added to improve readability of messages (which may not include newlines) . 


if ( ( len - h_read ( pipe_num, new_recv, SIZE_PIPE_BUF, IPC NOWAIT ) ) !- -l ) / 

if ( new_recv[ len - 1 ] !» NEWLINE ) 1 

new_recv( len++ ] - NEWLINE; 
new_recv [ len ] - NULL; 


Get the current receive buffer length and use to set cursor to last position. 
Add the new text . 


temp - get_text_widget ( t_ recv ) ; 

XmTextSet Insert ionPos it ion ( t_recv, strlen ( temp ) ) ; 
XtFree ( temp ) ; 

insert_text_widget < t_recv, new_recv ) ; 


Otherwise, determine if the remote pipe manager has opened or closed the con 
nection on the remote end. In either case, output a warning to the system 
message window. 


} else if ( errno — 0PEN_PIPE_REQ ) 

display_message ( MSG_WARN ING , "Remote pipe manager has opened connection" ) • 
else if ( errno — CLOSE_PIPE_REQ ) 

display_message ( MSG_WARNING, "Remote pipe manager has closed connection" ) ; 

Otherwise, if an error occurred (and is not simply a 'no message available' 
error), output a warning to the system message window. 


else if ( errno !- ENOMSG ) 

display_message ( MSG_ERROR, "Remote pipe manager encountered an error" ) ; 


} 

/* 

* Reinitialize the timer to cause this 

* It is necessary to perform this each 

* it completes (indicated by execution 
*/ 


function to be executed at the next interval, 
time as the interval is deinitialized after 
of this function) . 




Xt AddT imeOut 

) 


,/h_talk/tmr_recv.c 

( T IMERVALUE , tmr_recv, NULL ) ; 
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1.0 INTRODUCTION 

SwRI has developed a prototype widget which provides a mechanism for fast, efficient dis- 
play of multiple textual values. The purpose of this prototype is to allow an application program- 
mer to textually display a buffer of dynamic data values where each individual value will be up- 
dated as necessary. Any display of data will reflect the entire buffer of data at a given time. This 
prototype supports several different layout styles for both values and labels and provides minimum 
and maximum limit checks for each data value. 

The means for implementing this prototype mechanism is the creation of an X Windows wid- 
get. This widget has been created following the standard practices used in the creation of all toolkit 
widgets under X Windows. 

2.0 RESEARCH GOALS 

The goal of this research effort was to provide a mechanism by which a user could display 
large amounts of dynamic textual information in an easy and efficient manner using X Windows. 
This goal was attained by: 

• Creating a widget which is compatible with the standard format for X Windows wid- 
gets. 

• Providing the user with widget resources which will allow the information to be dis- 
played in a variety of layout styles. 

• Using the prototype as a basis for the text display in the converted X Windows/Motif- 
based Display Manager. 

3.0 RESEARCH DETAILS 

The prototype widget was developed in X Windows using only Xlib (low level library) and 
Xt (standard toolkit) functions. There are not any references to functions and definitions from other 
toolkits. 

The data table display widget, or Dbdata widget, will provide resources for the application 
programmer to perform the following functions: 

• Allow the application to update the actual data values. 

• Specify minimum and maximum limits for each data value. 

• Specify whether the buffer of data should be displayed in row-major or column-major 
order. 

• Specify the table labels and their orientation: single label, row/column labels, corre- 
sponding labels, or no labels. 

• Specify the foreground and background colors for labels, data values within their spec- 
ified range, d a t a values below the minimum limit, and data values above the maximum 
limit 

• Allow the application to specify a callback function to be called when any data value 
exceeds its specified limit. 

• Specify the font to be used in the display of values and labels. 

• Specify the time interval to be used when checking for changed values. 
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This widget implementation also provides for initialization, resizing, exposing, destroying, 
and setting resource values for a particular instance of the widget 

The main benefits of this widget are the speed at which updates appear on the display and the 
reduction in data space used by a single widget as compared to multiple instances of a widget for 
each value and label. 

3.1 Implementation Overview 

The Dbdata widget is a subclass of the Core Widget Class and is instantiated by a call to the 
standard X Windows create function, XtCreateWidgeL The Class name for the Dbdata widget is 
XeDbdata and the class pointer is XeDbDataWidgetClass. 

The Dbdata widget includes methods to optimally handle initialization, a resized widget, ex- 
posed and unexposed portions of a widget, a destroyed widget, and reset resource values. These 
methods were developed using the standard widget creation routines indicated in the class record 
for the widget 

In order to create a widget which interacts correctly with the X Intrinsics there needs to be 
three files created: 

• Dbdata. h - The public header file which detines all Resource names special to this wid- 
get as well as any structures which must be defined for the widget to be used by the 
application instantiating the widget 

• DbdataP.h - The private header file which defines the structures necessary to create an 
instance of the Rtdata widget The contents of this header file are for use by the widget 
source code. 

• Dbdata.c - The source file containing the initialization of all resources, and the code to 
initialize, expose, resize, destroy, update, manage, and reset resources for a particular 
instance of a widget 

This widget is designed to receive the address of a buffer which contains pointers to the data values, 
limits, colors, and display attributes. The widget will display the data in the layout specified by the 
resources using the specified labels, limits, and colors. Once the initial buffer is displayed, a Tim- 
erCallback will be used to check the values of the current buffer with the displayed buffer. The 
Timer will be set to the interval indicated by the user. If any data values have changed, those indi- 
vidual data strings will be modified on the display. 

3.1.1 Functional Description of a Data Table Widget 

The RtData widget is a special-purpose manager capable of displaying a buffer of data values 
using text images and the Xlib XDrawImageString function. It will support several different layout 
styles and provide m i nim u m and maximum limit checks for data values along with associated ac- 
tions for deviations. 

The layout is controlled by the various layout resources set by the application. It can be con- 
figured to lay out its children in either rows or columns. In addition, the application can specify 
whether the children should be packed tightly together (not into organized rows and columns), or 
whether each image should be placed in an identically-sized box and placed symmetrically, or 
whether specific layout by x and y positions should be done. Labels will be allowed in four orien- 
tations: one label for the entire buffer, row and column labels, one-to-one corresponding labels, or 
no labels. 
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3.1.2 Name 

XeDbData - the DbData widget class. 

3.1 3 Include Files 

#include <Xe/DbData.h> 

3.1.4 Classes 

The DbData widget class inherits behavior and resources from the Core widget class. 

The class pointer is XeDbDataWidgetClass. 

The class name is XeDbData. 

3.1.5 Data Table Widget Functions 

The following functions are available to create a DbData widget. 

• Widget XtCreateWidget (name, XeDbDataWidgetClass, parent, arglist, argcount) 

• Widget XeCreateDbData (parent, name, arglist, argcount) 

Both functions create an instance of a DbData widget and return the associated widget ID. 
XtCreateWidgetO is the standard X Toolkit create function. XeCreateDbDataO is the DbData-spe- 
cific create function. 

3.1.6 New Resources 

In order to provide the programmer with a somewhat simple interface to the widget, the wid- 
get will be designed with resources similar to the Motif RowColumn widget, as well as some re- 
sources which are specific to the data table display widget 

Those widget resources which will be accessible by the user to specify data are: 

• Font - Indicates the type of font to be used for all text displayed in one widget instance. 
The default is FIXED. 

• LabForeground - Pixel value indicating the foreground for a label. The default is 
WHITE. 

• LabBackground - Pixel value indicating the background for a label. The default is 
BLUE. 

• DefFore ground - Pixel value indicating the default foreground display color. The de- 
fault is BLACK. 

• DefBackground - Pixel value indicating the default background display color. The de- 
fault is WHITE. 

• Interval - Integer value indicating the number of milliseconds to wait when checking 
data values. The default is 1000 (1 second). 

• MinCallback - Callback for minimum limit exception. This function is called with a 
linked list of indices for the data values which have exceeded their m i nim u m limits. 

• Max Callback - Callback for maxim um limit exception. This function is called with a 
linked list of indices for the data values which have exceeded their maximu m limits. 

• Orientation - Will determine whether the data values are laid out in row major order, 
column major order, or user- specified. The available values are XeNO_ORIENTA- 
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TION for user-specified, Xe VERTICAL for column major and XeHORIZONTAL for 
row major. The default is XeNO_ORIENTATION. 

• Packing - Will specify how to pack the data values. The data values may be packed 
tightly along the major dimension, resized to the size of the largest value and aligned in 
columns, or not packed at all, but positioned according to the user-specified (x,y) posi- 
tions. The available values are XePACK_TIGHT, XeNO_PACK_COLUMN, and Xe- 
NO_PACKING. The default is XeNO_PACK_COLUMN. 

• NumColumns - If packing is set to PACK.COLUMN, this resource determines the 
maximum number of rows (for horizontal orientation) or columns (for vertical orienta- 
tion. Default is the maximum number which will fit packed tightly. 

• LabelOrientation - Will specify how to label the data values. The data values may be 

labeled by one label, row and column labels, individual labels, or no labels. The avail- 
able values are XeT ABLE_L ABEL, XeCORR.LABEL, XeROW.COLUMN, and 

XeNO_LABEL_ORIENT. The default is XeNO_LABEL_ORIENT. 

• NumValues - Will indicate the number of data values to be displayed by the widget. The 
m ax im um number allowed is 750. Mandatory. 

Values - Will point to a buffer of pointers to the data values, associated limits, and X 
and Y coordinates. Mandatory. The structure for this resource is defined in the DbEle- 
ment structure in the Dbdata.h file. 

• Labels - Buffer of string values to be used as labels for the associated data values and 
their X and Y coordinates. 

Currently there are a number of screen types which may be assigned for the display of data. 
The available types are floating point, signed integer, scientific notation, hexadecimal, octal, bina- 
ry, character, multitext, unsigned integer, and a number of different time formats. These formats 
are defined in the Dbdata.h file with the constant values for each display type. This attribute is set 
in the Type element of the DbElement structure. 

4.0 RESEARCH CONCLUSIONS 

Conclusions drawn from this research effort include finding that the creation of a widget to 
display and manage large amounts of data can be done in a useful and efficient manner using the 
standard procedures in X Windows. During the early development of the widget a program was 
successfully written to display a window containing four of the data table display widgets. Each 
widget contained from 50 to 200 data values and were displayed with different data and label ori- 
entations. This test program successfully updated all of the data values within a widget once oer 
second. 

During the integration of this widget into the X Windows/Motif-based Display Manager, it 
was found that the Dbdata widget did not replace widgets for each individual label and data value. 
With the current design of Display Manager the widget was only used to display data values and 
the labels were displayed by using the X Library and Toolkit functions. In this scenario, all of the 
data values were displayed under the control of one data table display widget It would be more 
beneficial to the performance of Display Manager to use the widget to display both the labels and 
the values, but time did not allow this type of a redesign effort By using the widget and its associ- 
ated methods, X events are automatically handled and the overhead associated with man aging the 
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resizing, redrawing, and destroying of display areas in the program would be eliminated and car- 
ried out in the widget methods. 

5.0 ATTACHMENTS 

The following pages contain the actual code for the data table display widget. The code and 
related files which are present include: 

• Dbdata.h - The public header file which defines all Resource names special to this wid- 
get, as well as any structures which must be defined for the widget to be used by the 
application instantiating the widget 

• DbdataP.h - The private header file which defines the structures necessary to create an 
instance of the Rtdata widget The contents of this header file are for use by the widget 
source code. 

• Dbdata.c - The source file containing the initialization of all resources, and the code to 
initialize, expose, resize, destroy, update, manage, and reset resources for a particular 
instance of a widget. 
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Header File 


Southwest Research Institute 


Page 6 


Workstation Executives 


Dbdata.h 


/★★★★★★★★★★★★★★★★a*************** ********************************************** 
* MODULE NAME: Dbdata.h 



★ — 

* Public header file for dbdata Widget Class 


* 


* 

* ORIGINAL AUTHOR AND IDENTIFICATION: 

★ 

* Nancy L. Martin - Software Engineering Section 

★ Data Systems Department 

★ Automation and Data Systems Division 

* Southwest Research Institute 
************************************************ ******************************/ 


♦ifndef DBDATA_H 
♦define DBDATA_H 

extern WidgetClass Xedbdat aWidgetClass ; 

typedef struct __XeDbdataClassRec *XeDbdataWidgetClass; 

typedef struct _XeDbdataRec *XeDbdataWidget ; 

/* 

* Define the resource strings for the Dbdata widget. 
*/ 


♦define XtNminimum 
♦define XtNmaximum 
♦define XtNlabForeground 
♦define XtNlabBackground 
♦define XtNdefForeground 
♦define XtNdef Background 
♦define XtNinterval 
♦define XtNnumColumns 
♦define XtNnumValues 
♦define XtNvalues 
♦define XtNlabels 
♦define XtNmaxCallback 
♦define XtNminCallback 
♦define XtNorientation 
♦define XtNpacking 
♦define XtNlabelOrientation 

♦define XtCNumColumns 
♦define XtCNumValues 
♦define XtCValues 
♦define XtCLabels 
♦define XtCOrientation 
♦define XtCPacking 
♦define XtCLabelOrientation 

♦define XtROrientation 
♦define XtRPacking 
♦define XtRLabelOrientation 
/* 

* Define the values which 

* orientation settings. 

*/ 

♦define XeNOjDRIENTATION 
♦define XeVERTICAL 
♦define XeHORI ZONTAL 
♦define XeNO_PACKING 
♦define XeNO_P ACK_CO LUMN 
♦define XePACK TIGHT 


"minimum" 

"maximum" 

"labForeground" 

"labBackground" 

"def Foreground" 

"def Background" 

"interval" 

"numColumns" 

"numValues" 

"values" 

"labels" 

"maxCallback" 

"minCallback" 

"orientation" 

"packing" 

"labelOrientation" 

"NumColumns" 

"NumValues" 

"Values" 

"Labels" 

"Orientation" 

"Packing" 

"LabelOrientation" 

"Orientation" 

"Packing" 

"LabelOrientation" 

may be used for the various 


0 

1 

2 

0 

1 

2 




♦define XeNO_LABEL_ORIENT 0 
♦define XeTAB LE_LABE L 1 
♦define XeROW_COLUMN 2 
♦define XeCORR LABEL 3 


Dbdata.h 



♦define XeFLOAT 1 

♦define XeSIGNED 2 

♦define XeSCIENTIFIC 3 

♦define XeHEXADEC IMAL 4 

♦define XeOCTAL 5 

♦define XeBINARY 6 

♦define XeCHARACTER 8 

♦define XeMULTITEXT 9 

♦define XeTIMElO 10 

♦define XeTIMEll 11 

♦define XeTIME12 12 

♦define XeTIME13 13 

♦define XeTIME15 15 

♦define XeTIME16 16 

♦define XeTIME17 17 

♦define XeTIMElS 18 

♦define XeTIME19 19 

♦define XeTIME20 20 

♦define XeUNSIGNED 21 


♦define XeYES 1 

♦define XeNO 0 

♦define XeMI S S ING_D AT A 0x80000000 

♦define XeOEAD_DATA 0x40000000 

♦define XeOFF_SCALE_HIGH 0x20000000 

♦define XeOFF_SCALE_LOW 0x10000000 

♦define XeSTATIC_DATA 0x08000000 

♦define XeLIMIT_HIGH 0x04000000 

♦define XeLIMIT_LOW 0x02000000 

♦define XeHOMOG_DATA 0x01000000 

♦define XeUNKNN_DATA 0x01000000 

♦define XeCRITICAL_HIGH 0x00400000 

♦define XeCRITICAL_LOW 0x00200000 

♦define XeUNAVAIL_DATA 0x00000040 

/* 

* Define the structures to be used as the buffers containing the data 

* values, labels, and limits. 

*/ 


/* Missing data mask for status bit 0 
/* Dead data mask for status bit 1 
/* Off scale high mask for status bit 2 
/* Off scale low mask for status bit 3 
/* Static data mask for status bit 4 
/* Limit high mask for status bit 5 
/* Limit low mask for status bit 6 
Homog. data mask for status bit 7 
?????? data mask for status bit 8 
/* Critical high mask for status bit 9 
/* Critical low mask for status bit 10 
/* Unavail, data mask for status bit 25 


/* 

/* 


adef struct 

_element_ Struct { 

char 

♦Value; 

int 

Typer- 

int 

Year; 

int 

YearCat ; 

char 

At t rib; 

int 

Length; 

int 

Width; 

int 

Precision; 

int 

JustFlag; 

int 

DispStat ; 

int 

StatFlag; 

Position 

X; 

Position 

Y; 

double 

MinLimit ; 

double 

MaxLimit ; 

long 

LowColor ; 

long 

HiColor; 

double 

CrMinLimit ; 

double 

CrMaxLimit ; 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 



long 

long 

long 

long 

long 

long 


CrLColor; 

CrHColor; 

NoaColor ;* 

StaColor; 

OvrColor; 

DeadColor; 


XFont Struct *DefFont; 

} DbElement, *DbElementPtr ; 


typedef struct _label_struct 


char * Label; 
Position LabelX; 
Position LabelY; 

} DbLabel, *DbLabelPtr; 


{ 


/* 

★ Define the structure to be used as the callback structure. 
*/ 

struct list { 

int index; 

struct list *next; 

} ; 

typedef struct { 

struct list * indices; 

} xedbdataCallbackSt ruct ; 

tendif DBDATA H 
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/. **************************************************** 

* MODULE NAME: Dbdata.h 

★ 

* Private header file for dbdata Widget Class 

* 

* 

★ ORIGINAL AUTHOR AND IDENTIFICATION: 

* 

* Nancy L. Martin - Software Engineering Section 

* Data Systems Department 

* Automation and Data Systems Division 

* Southwest Research Institute 








#ifndef DBDATAP_H 
♦define DBDATAP_H 

♦include "Dbdata.h" 

/* 

* Define the maximum number of data values which will be allowed 

* within one instance of an Dbdata widget. 

*/ 

♦define MAXVAL 750 

♦define FLEN 11 

/ * 

* Define a structure containing the Dbdata widget's contribution to the 

* class record. In this case the Dbdata widget does not have anything 

* to add to the class record. 

*/ 

typedef struct _XeDbdataClassPart { 
int ignore; 

} XeDbdataClassPart ; 

/* 

* Define the Dbdata widget's full class record with the core class part 

* and the dummy Dbdata part.' 

*/ 

typedef struct _XeDbdataClassRec { 

CoreClassPart core_class ; 

XeDbdataClassPart dbdata_class; 

} XeDbdataClassRec ; 

extern XeDbdataClassRec XedbdataClassRec; 

/* 

* Define the instance record of the Dbdata widget class. This structure 

* defines the resources added by the Dbdata widget. 

*/ 


typedef struct 

_XeDbdat aPart { 




short 

Orientation; 

/* 

Data orientation 

*/ 

short 

Packing; 

/* 

Data packing 

*/ 

int 

NumColumns; 

/* 

Number of rows or columns. 

*/ 



/* 

if orientation set 

*/ 

short 

LabelOrientation; 

/* 

Label orientation 

*/ 

Pixel 

LabForeground; 

/* 

Label foreground color 

*/ 

Pixel 

LabBackground ; 

/* 

Label background color 

V 

GC 

LabGC; 

/* 

GC created for labels 

*/ 

Pixel 

Def Foreground; 

/* 

Label foreground color 


Pixel 

Def Background; 

/* 

Label background color 

*/ 

GC 

NomGC; 

/* 

GC created for nominal 

*/ 



/* 

values 

*/ 

GC 

StaGC; 

/* 

GC created for static 

*/ 



/* 

values 

*/ 

GC 

OvrGC ; 

/* 

GC created for override 

*/ 



/* 

values 

*/ 
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) 

/* 


GC 

DeadGC; 

/* 



/* 

GC 

LowCC; 

/* 



/* 

GC 

HiGC; 

/* 



/* 

GC 

CrLGC; 

/* 



/* 

GC 

CrHGC; 

/* 



/* 

XFontStruct 

*DefFont ; 

/* 

DbElementPtr 

Elements; 

t* 



/* 

DbLabelPtr 

Labels; 

/* 

int 


/* 

NumValues; 

/* 

Position 

MidX; 

/* 

Position 

MidY; 

/* 

int 

NumLabels; 

/* 

int 


/* 

FontHeight ; 

/* 

int 


/* 

MaxWidth; 

/* 

int 

LabelWidth; 

/* 

char 

*Label [MAXVAL] ; 

/* 

char* 

OldValue [MAXVAL] ; 

/* 

char 

Format [MAXVAL] [FLEN] ; 

/* 

long 

Intervale- 

/* 

Xtlntervalld 

Id; 

/* 

XtCallbackList 

MinCB ; 

/* 



/* 

XtCallbackList 

MaxCB ; 

/* 



/* 

Boolean 

Redisplay; 

/* 



/* 

XeDbdataPart ; 



Define the Dbdata widget's instance record 1 


GC created for dead 
values 

GC created for low 
values 

GC created for high 
values 

GC created for critical 
low values 

GC created for critical 
high values 
Font used for display 
Pointer to data, limits, 
and positions 
Pointer to labels and 
positions 

Number of data values 
Coordinates for midpoint 
of window 

Number of labels based 
on label orientation 
Maximum height of selected 
font 

Maximum width of all values 
Maximum width of all values 
Displayed label 
Currently displayed values 
Format for each value 
Specified timer interval 
Id for timer 

Callback list for minimum 
values 

Callback list for maximum 
values 

Indicates whether the 
is being redisplayed 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

V 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

V 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

V 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 

V 
*/ 
*/ 
*/ 


V 

typedef struct _XeDbdataRec 
CorePart core; 

XeDbdataPart dbdata; 

} XeDbdataRec; 


union 


} ; 


datatypes { 
double ddata; 
float sfdata [2] ; 
long sldata [2] ; 
short ssdata[4]; 
unsigned long ldata[2]; 
unsigned long uldata[2]; 
unsigned short usdata[4]; 


#endif DBDATAP H 



Real-time Widget 


RESEARCH DETAILS 


ATTACHMENT 3 - Source 

Code 


Southwest Research Institute 


Page 8 


Workstation Executives 



/it*************************************************************************** 

* FILE NAME: Dbdata. c The Dbdata Widget Methods 


* This is the source code which contains the declaration and static 

* initialization of the Dbdata widget's class record, and also contains 

* the widget's methods, 

* 

* ORIGINAL AUTHOR: 

* 

* Nancy L. Martin - Software Engineering Section 

* Data Systems Department 

* Automation and Data Systems Division 

* Southwest Research Institute 

* 

a***************************************************************************/ 


♦include <stdio.h> 

♦include <math.h> 

♦include <Xll/IntrinsicP ,h> 
♦include <X11/ Intrinsic ,h> 
♦include <Xll/StringDef s ,h> 
♦include <Xll/CoreP ,h> 
♦include <DbdataP.h> 
♦include <Dbdata.h> 


♦define MAXLENGTH 256 

♦define MAX (a, b) ((a>b)?a:b) 


static void Initialize () ; 
static void Redisplay (); 
static void Resize (); 
static void DestroyO; 
static Boolean SetValuesO; 


static unsigned char resource^ packing 
static unsigned char resource_orient 
static unsigned char resource_label_orient 
static unsigned int resource_values 
static unsigned int resource_labels 
static unsigned short resource_columns 
/* 


- XeNO_PACK_COLUMN; 

- XeNO — ORIENTAT ION ; 

- XeNO_LABEL_ORIENT; 

- 0 ; 

- 0 ; 

- 1 ; 


* Initialize the resource list used by the resource manager for 

* the Dbdata widget. The resources are automatically stored in 

* the appropriate fields of the instance record. 

*/ 


static XtResource resources [] - { 

{ XtNfont , 

XtCFont, 

XtRFont Struct, 
sizeof (XFont Struct*) , 

XtOf f set (XeDbdat a Widget, dbdata .Def Font) , 
XtRString, 

"Fixed" 

) f 

{ XtNlabForeground, 

XtCFo reground, 

XtRPixel, 
sizeof (Pixel) , 

XtOf f set (XeDbdat a Widget, dbdata . LabForeground) , 
XtRString, 

"white" 

) t 

{ XtNlabBackground, 




Dbdata.c 



XtCBackground, 

XtRPixel, 
sizeof (Pixall* 

XtOf f set (XeDbdataWidget, dbdata. LabBackground) , 
XtRString, 

"lightblue" 

XtNdef Foreground, 

XtCForeground, 

XtRPixel, 
sizeof (Pixel) , 

XtOf fset (XeDbdataWidget, dbdata .Def Foreground) , 
XtRString, 

"black" 

XtNdef Background, 

XtCBackground, 

XtRPixel, 
sizeof (Pixel) , 

XtOf fset (XeDbdataWidget, dbdata .Def Background) , 
XtRString, 

"white" 

XtNinterval, 

XtCInterval, 

XtRInt, 

sizeof (long int) , 

XtOf fset (XeDbdataWidget , dbdata . Interval) , 
XtRString, 

" 1000 ", 

XtNminCallback, 

XtCCallback, 

XtRCallback, 

sizeof (XtCallbackList) , 

XtOf fset (XeDbdataWidget, dbdata .MinCB) , 
XtRCallback, 

(caddr_t ) NULL 

XtNmaxCallback, 

XtCCallback, 

XtRCallback, 

sizeof (XtCallbackList) , 

XtOf fset (XeDbdataWidget, dbdata .MaxCB) , 
XtRCallback, 

( caddr_t ) NULL 

XtNorientation, 

XtCOrientation, 

XtROrientation, 
sizeof (short) , 

XtOf fset (XeDbdataWidget, dbdata .Orientation) , 
XtROrientation, 

(caddr_t) &resource_orient 

XtNpacking, 

XtCPacking, 

XtRPacking, 
sizeof (short) , 

XtOf fset (XeDbdataWidget, dbdata . Packing) , 
XtRPacking, 

(caddr_ t) &resource_packing 


XtNnumColumns 
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XtCNumColumna , 

XtRShort , 
sizeof (intJu 

XtOffaet (XeDbdataWidget, dbdata .NumColumns) , 

XtRShort, 

< caddr_t ) & reaource_columna 

), 

{ XtNlabelOrientation, 

XtCLabelOrientation, 

XtRLabelOrientation, 
aizeof (ahort ) , 

XtOffaet (XeDbdataWidget, dbdata.LabelOrientation) , 
XtRLabelOrientation, 

(caddr_t) 4resource_label_orient 

i, 

( XtNnumValues, 

XtCNumValuea , 

XtRInt, 
aizeof (int ) , 

XtOffaet (XeDbdataWidget, dbdata .NumValues) , 

XtRInt, 

( caddr_t ) & reaource_values 

}, 

{ XtNvalues, 

XtCValuea, 
xtRPointer, 
aizeof (int*) , 

XtOffaet (XeDbdataWidget, dbdata. Elements) , 

XtRPointer, 

NULL 

), 

{ xtNlabela, 

XtCLabela, 

XtRPointer, 
aizeof (int*) , 

XtOffaet (XeDbdataWidget, dbdata .Labels) , 

XtRPointer, 

NULL 

) 

} ; 

/* 

* Define the contents of the Dbdata widget' a class record, which is 

* initialized at compile time by declaring the contents of the 

* structure statically in the source code. 

*/ 


XeDbdataClassRec XedbdataClassRec - 

{ 



/ * Core class fields. 
1 



*/ 

\ 

(widgetClass) twidgetClassRec, 

/* 

Superclass 

*/ 

-Dbdata", 

/* 

Class Name 

*/ 

aizeof (XeDbdataRec) , 

/* 

widget Size 

*/ 

NULL, 

/* 

Class Initialize 

*/ 

NULL , 

/* 

Class Part Initialize 

*/ 

FALSE, 

/* 

Class Initialized 

*/ 

Initialize, 

/* 

Initialize Process 

*/ 

NULL, 

/* 

Initialize Hook 

*/ 

XtlnheritRealize, 

/* 

Realize Process 

*/ 

NULL, 

/* 

Actions List 

*/ 

0 , 

/* 

Number of Actions 

*/ 

resources. 

/* 

Resources 

*/ 

XtNumber (resources) , 

/* 

Number of Resources 

*/ 

NULL, 

/* 

Resource Manager Class 

*/ 

TRUE, 

/* 

Compress Motion 

*/ 

TRUE, 

/* 

Compress Exposure 

*/ 
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TRUE, 

TRUE, 

Destroy, — 

Resize, 

Redisplay, 

SetValues, 

NULL, 

Xt Inherit SetValues Almost, 
NULL, 

NULL, 

XtVersion, 

NULL, 

NULL, 

NULL, 

NULL, 

NULL, 

}, 

/* Dbdata class fields. 

{ 0 , 

} 

} ; 


/* 

Compress Enter/Leave 

*/ 

/* 

Visible Interest 

*/ 

/* 

Destroy Process 

*/ 

/* 

Resize Process 

*/ 

/* 

Expose Process 

*/ 

/* 

Set Values 

*/ 

/* 

Set Values Hook 

*/ 

/* 

Set Values Almost 

*/ 

/* 

Get Values Hook 

*/ 

/* 

Accept Focus 

*/ 

/* 

Version 

*/ 

/* 

Callback Private 

*/ 

/* 

Translation Table 

*/ 

/* 

Query Geometry 

*/ 

/* 

Display Accelerator 

*/ 

/* 

Extension 

*/ 



*/ 

/* 

Ignore 

*/ 



WidgetClass XedbdataWidgetClass - (WidgetClass) SXedbdataClassRec; 

/* 

* Define the procedure to be called at a specified interval to 

* check for changed data values. 

V 

XtTimerCallbackProc check_data {) ; 

/* 

* Set up the structure to be used for extracting data. 

*/ 

union data_types Data; 

/a************************************************************************* 

* METHOD NAME: Initialize 

* 

* This method is used to initialize the instance record at run 

* run time. 

* 

*******★*★*★**★★★****★★*★** *************★*********************************/ 
static void Initialize (request, new) 

XeDbdat aWidget request , 
new; 

{ 

int ascent, 
descent, 
dir, 
n, 

width; 

XCharSt ruct char_inf o ; 

XGCValues crl_gcv, 

crh_gcv, 
dead_ gcv, 
hi_gcv, 
lab_gcv, 
lowj gcv, 
nom_gcv, 
ovr_gcv, 
sta_gcv; 

int mask « GCForeground; 

int labmask - GCFo reground | GCBackground; 

caddr_t client_data; 

Display ^display - XtDisplay (new) ; 

Window root - RootWindowOf Screen (XtScreen (new) ) ; 




Dbdata.c 


if ( request->core. width — 0 ) 
new->core .width - 100; 
if ( request ->co re. height " 0 ) 
new->core .height - 100; 

for ( n - 0; n < request->dbdata .NumValues; n++ ) { 
if ( request->dbdata .Elements [n] .MinLimit > 
request->dbdata. Elements [n] .MaxLimit) { 
request->dbdata .Elements [n] .MinLimit - 0; 
request ->dbdat a .Elements [n] .MaxLimit - 100; 

request ->dbdat a . OldValue [n] - request ->dbdat a .Elements [n] .Value 

} 

if ( request ->dbdat a. Elements [n] .CrMinLimit > 
request->dbdat a. Elements [n] .CrMaxLimit) { 
request->dbdata. Elements [n] .CrMinLimit - 0; 
request->dbdata .Elements [n] .CrMaxLimit - 100; 

> 


- 1 


/* 

* 

*/ 


/* 

* 

* 

*/ 


Create the GCa for possibly different value status. 

crl_gcv. foreground - request ->dbdata .Def Foreground; 
new->dbdata . CrLGC - XCreateGC (display, root, mask, scrl_gcv) ; 

crh_gcv. foreground - request->dbdata . Def Foreground; 
new->dbdata . CrHGC - XCreateGC (display, root, mask, Scrh_gcv) ; 

dead_gcv. foreground - request ->dbdata .Def Foreground; 
new->dbdata.DeadGC - XCreateGC (display, root, mask, *dead_gcv) ; 

h i q cv. foreground «■ request ->dbdata .Def Foreground; 
new->dbdata . HiGC - XCreateGC (display, root, mask, *hi_gcv) ; 

lab_gcv. foreground - new->dbdata . LabForeground; 
lab_gcv . background ■ new->dbdata . LabBackground; 

new->dbdata . LabGC - XCreateGC (display, root, labmask, «lab_gcv) ; 

low_gcv. foreground - request->dbdata .Def Foreground; 
new->dbdata . LowGC - XCreateGC (display, root, mask, Slow_gcv) ; 

nom_gcv. foreground - request->dbdata .Def Foreground; 
new->dbdata . NomGC “ XCreateGC (display, root, mask, finom_gcv) ; 

ovr_gcv. foreground - request ->dbdata .Def Foreground; 
new->dbdata .OvrGC - XCreateGC (display, root, mask, fiovr_gcv) ; 

sta_gcv. foreground - request->dbdata .Def Foreground; 
new->dbdata .StaGC - XCreateGC (display, root, mask, 4sta_gcv) ; 

If there are labels, calculate the maximum label width. This loop 
will not be executed, if there are not any labels. 

width - 0; 

for ( n - 0; n < new->dbdata .NumLabels; n++ ) { 
if ( new->dbdata. Labels [n] .Label ) 

^ width - MAX (width, strlen (new->dbdata .Labels [n] .Label) ) ; 

new->dbdata . LabelWidth - 0 ; 

if ( new->dbdata .LabelOrientation !- XeNO_LABE L_ORI ENT ) ( 
for ( n - 0; n < new->dbdata .NumLabels; n++ ) ( 
if ( new->dbdata. Labels [n] .Label) { 

sprintf (new->dbdata . Label [n] , "%*s", width, 
ne w->dbdata. Labels [n] .Label) ; 

XTextExtents (new->dbdata. Def Font, new->dbdata. Label [n] , 
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width, &dir, 

iascent, fidescent, &char_info) ; 

new^>dbdat a. Label Width - 

MAX (new->dbdata . LabelWidth, char_inf o . width) ; 


> 


* Now call the Resize method to set up the display. 

*/ 

Resize (new) ; 

/* 

* Start the timer for checking the data values. 

*/ 

client data - (caddr_t) new; , . ^ . 

new->dbdata . Id - xtAddTimeOut (new->dbdata . Interval, check_data, client_data) 

^m*********** ****************** ****************************************** 

* METHOD NAME: Destroy 

* 

* This method is used to clean up any resources the Dbdata widget 

* has created. 

* 

i,*************************************************************************/ 

static void Destroy (w) 

XeDbdataWidget w; 

{ 

/* 

* Free all of the GCs allocated for this widget. 

*/ 

XFreeGC (w, w->dbdata.LabGC) ; 

XFreeGC (w, w->dbdata .NomGC) ; 

XFreeGC (w, w->dbdata . StaGC) ; 

XFreeGC (w, w->dbdata .OvrGC) ; 

XFreeGC (w, w->dbdata .DeadGC) ; 

XFreeGC (w, w->dbdata . LowGC) ; 

XFreeGC (w, w->dbdata .HiGC) ; 

XFreeGC (w, w->dbdata .CrLGC) ; 

XFreeGC (w, w->dbdata .CrHGC) ; 

/* 


* Remove the callbacks setup for this widget. 


*/ 


XtRemoveAllCallbacks (w, XtNminCallback, w->dbdata.MinCB); 
XtRemoveAllCallbacks (w, XtNmaxCallback, w->dbdata.MaxCB) ; 


/ ************************************************************************** 

* METHOD NAME: Destroy 

★ 

* This method is used to examine the members of the widget structure 

* and recalculate any derived data that is dependent on the 

* configuration of the widget's window. 

* 

**★*★*★**★* *****★**★***★**★**★★***★★**★★★★*** *****★**************★********/ 
static void Resize (w) 

XeDbdataWidget w; 

{ 

int ascent, 

delta_x, 
delta_y, 
descent, 
digit, 
dir, 
row, 

columns. 





label_row3, 

label__columns, 

rows, 

label_width, 

n, 

width; 

unsigned int idata; 
int ival; 

long uval; 

unsigned long days, 
hours, 

milliseconds, 

minutes, 

seconds; 

char length [3], 

lead [5] , 
precision [4] , 
convert [2] ; 
double num_sqrt, 

real_hours, 
real_min, 
real_ sec, 
val_sqrt ; 

Position startx, 

starty; 

XCharStruct char_info; 
char hold [MAXLENGTH] , 

bit St r [MAXLENGTH] ; 
void get Jbin ( ) ; 
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/* 

* Calculate the maximum width of the data values. 

*/ 

w->dbdata.MaxWidth - 0; 

for ( n - 0; n < w->dbdata .NumValues; n++ ) { 
if ( w->dbdata .Elements [n] .width > 0 ) 

sprintf ( length, "%d", w->dbdata .Elements [n] .Width ); 

else 

sprintf (length, "") ; 

if ( w->dbdata. Elements [n] .Precision >- 0 ) 

sprintf ( precision, ".%d", w— >dbdata. Elements [n] .Precision 

else 

sprintf (precision, ; 

/* 


* 

*/ 


Set up the format for the selected screen type. 

if ( w->dbdata .Elements [n] .Type *■- XeFLOAT) { 
sprintf ( convert, "f" ) ; 
sprintf ( lead, "%%" ) ; 

} else if ( w->dbdata. Elements [n] .Type — Xe SIGNED) { 
sprintf ( convert, "d" ) ; 
sprintf ( lead, "%%" ) ; 

} else if ( w->dbdata .Elements [n] .Type — “ XeSCIENTIFIC) ( 

sprintf ( precision, ".%d", w->dbdata. Elements [n] .Precision-4 ) 
sprintf ( convert, "e" ) ; 
sprintf ( lead, "%%" ); 

} else if ( w->dbdata .Elements [n] .Type -- XeHEXAD EC IMAL ) { 
sprintf ( convert, "x" ) ; 
sprintf ( lead, "0x%%0" ) ; 

sprintf ( precision, ".%d", w->dbdata .Elements [n] .Width ); 

} else if ( w->dbdata .Elements [n] .Type ~ XeOCTAL) ( 
sprintf ( lead, "0%%0" ) ; 

sprintf ( precision, ".%d", w->dbdata .Elements [n] .Width ); 
sprintf ( convert, "o" ) ; 



Dbdata.c 



) else if (( w->dbdata. Elements [n] .Type 
( w->dbdata. Elements [n] .Type ~ 
(-«=■ >dbdata. Elements [n] .Type ” 
( w->dbdata. Elements [n] .Type — 
( w->dbdat a. Elements [n] .Type -- 
( w->dbdat a. Elements [n] .Type — 
( w->dbdata. Elements [n] .Type — 
( w->dbdata. Elements [n] .Type — 
( w->dbdata. Elements [n] .Type — 
( w->dbdata .Elements [n] .Type ”” 
( w->dbdata .Elements [n] .Type -- 
( w->dbdata .Elements [n] .Type -- 
( w->dbdata .Elements [n] .Type — 
sprintf ( convert, "a" ) ; 
sprint f ( lead, "%%" ) ; 

} else if ( w->dbdata. Elements [n] .Type 
sprintf ( convert, "u" ) ; 
sprintf ( lead, "%%" ) ; 


— Xe BINARY ) 
XeCHARACTER ) 
XeMULT I TEXT ) 
XeTIMElO ) I I 
XeTIMEll ) I I 
XeTIME12 ) I I 
X6TIME13 ) I I 
XeTIME15 ) I i 
XeTIME16 ) I I 
XeTIME17 ) | | 

XeTIME18 ) I I 
XeTIME19 ) | I 

XeTIME20 ) ) { 


« Xe UN SIGNED) 


I I 
I I 
I I 


( 


sprintf 

( w->dbdata . Format [n ] , ”%s%s%s%s". 

lead, length, precision, convert ) ; 

switch ( w->dbdata. Elements [n] .Attrib ) ( 



case 

' P' 

: /* 

Discrete Parent 

*/ 

case 

'D' 

: /* 

Double Precision Real 

*/ 

case 

9 L' 

: /* 

Natural (Unsigned) 

*/ 

case 

06 

/* 

Discrete Parent 

*/ 

case 

11 

/* 

BCD Time Variable 

*/ 

case 

13 

/* 

BCD Hex Time Variable 

*/ 

case 

15 

/* 

Bit Weighted Time Variable 

*/ 

case 

16 

/* 

Bit Weighted Clock Time 

*/ 

case 

17 

/* 

Bit Weighted Clock Time 

*/ 

case 

18 

/* 

Bit Weighted GMT /MET 

*/ 

case 

19 

/* 

Spacelab Floating Point 

*f 

case 

20 

/* 

Experiment I/O GMT (Type X) 

*/ 

case 

21 

/* 

Experiment I/O GMT (Type H) 

*/ 


switch < w->dbdata .Elements [n] .Type ) ( 


case XeFLOAT: 

if ( w->dbdata. Elements [n] .Length <- 32 ) { 

Data.sfdata [0] - * (float*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdat a. Format [n] , Data.sfdata [0] ) ; 

) else ( 

Data.ddata - * (double*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data.ddata); 

) 

break; 

case XeSIGNED: 

if (( w->dbdata .Elements [n] .Attrib — 'D' ) II 
( w->dbdata .Elements In] .Attrib — 19 )) { 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 
if <( Data.ddata < 2147483647.0 ) Si (Data.ddata > -2147483648.0 )) 
digit - Data.ddata; 

else 

digit - 2147483647; 

sprintf (hold, w->dbdata .Format [n] , digit); 

) else { 

if ( w->dbdata .Elements [n] .Length o 32 ) ( 

Data.sldata [0] - * (long*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata. Format [n] , Data .sldata [0] ) ; 

) else { 

Data.ddata - * (double*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data.ddata); 


) 
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break; 

case XeUNSIGNED: 

if=4 (-.w->dbdata .Elements [n] .Attrib — 'D' ) || 

( w->dbdata .Elements [n] .Attrib — 19 )) ( 

Data.ddata ■ * (double*) w->dbdata. Elements [n] .Value ; 
if (( Data.ddata < 2147483647.0 ) 4& (Data.ddata > - 2147483648.0 )) 
idata - Data.ddata; 

else 


idata - 2147483647; 

sprintf (hold, w->dbdata. Format [n] , idata); 

} else ( 

if ( w->dbdata .Elements [n] .Length <«■ 32 ) { 

Data.uldata [0] - * (unsigned long*) w->dbdata .Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data .uldata [ 0 ] ) ; 

} else { 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 
sprintf (hold, w->dbdata. Format [n] , Data.ddata); 

} 

} 

break; 

case XeSCIENTIFIC: 

if ( w->dbdata. Elements [n] .Length <- 32 ) { 

if ( w->dbdata. Elements [n] . StatFlag !- 0 ) ( 

Data.sldata [0] - * (long*) w->dbdata .Elements [n] .Value; 
sprintf (hold, "%*.*E", w->dbdata .Elements (n] .Width, 

w->dbdata . Elements [n] .Precision-5, Data . sldata [ 0 ] ) ; 

) else ( 

Data. sldata [0] - * (long*) w->dhdata. Elements [n] .Value ; 
sprintf (hold, w->dbdata. Format [n] , Data.sldata [0] ) ; 

) 

} else ( 

if ( w->dbdata. Elements [n] .StatFlag !- 0 ) ( 

Data.ddata <■ * (double*) w->dbdata. Elements [n] .Value; 
sprintf (hold, "%*.*E", w->dbdata .Elements [n] .Width, 

w->dbdata.Elements[n] .Precision-5, Data.ddata) ; 

) else ( 

Data.ddata “ * (double*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data.ddata); 

) 


) 

break; 

case XeHEXADECIMAL : 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value ; 
sprintf (hold, w->dbdata .Format [n] , Data.ddata); 
break; 

case XeOCTAL : 

Data.ddata - * (double*) w->dbdata. Elements [n] .Value ; 
sprintf (hold, w->dbdata .Format [n] , Data.ddata); 
break; 

case XeB INARY : 

Data.ldata[0] - ‘(unsigned long*) w-XJbdata .Elements [n] .Value ; 
get_bin ( Data. Idata, w->dbdata. Elements [n] .width, bitstr ); 
sprintf (hold, w->dbdata .Format [n] , bitstr); 
break; 

case XeMULTITEXT : 

strcpy (hold, w->dbdata .Elements [n] .Value) ; 
break; 

Tabular time 
Tabular time 
Tabular time 
Tabular time 


case XeTIMElO: 
case XeTIMEll : 
case XeTIME12: 
case XeTlMEld : 
case XeTlME19 : 

case XeTIME20: /^Tabular time (yyyy :ddd:hh :mm: ss . sss) 
if { w->dbdata .Elements [n] .Attrib »* 'D' ) { 


/* 

/* 

/* 

/* 


/* Tabular time 


(ddd:hh:mm: ss . sss) 
(yyyy:ddd:hh:mm:ss .sss! 
(yy :ddd:hh:mm:ss . sss) 
(ddd:hh :mm: ss .sss) 
(yyyy:ddd:hh:mm: ss . sss) 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 
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Data.ddata - * (double*) w->dbdata. Elements {n] .Value; 
days “ Data.ddata / 24.0; 

-=L-real_hours - Data.ddata - ( (double) days * 24.0); 
hours - real_hours; 

re al_min - (real_hours - (double) hours) * 60.0; 
minutes “ real_min; 

real_sec - (real_min - (double) minutes) * 60.0; 
seconds ” real_sec; 

milliseconds - (real_sec - (double) seconds) * 1000.0; 
if ( w->dbdata. Elements [n] .Type - XeTIMElO ) 
sprintf (hold, "%03d:%02d:%02d:%02d.%03d", 

days, hours, minutes, seconds, milliseconds ) ; 
else if ( w->dbdata. Elements [n] .Type - XeTIMEll ) 
sprintf (hold, "%d:%03d:%02d:%02d:%02d.%03d", 
w->dbdata. Elements [n] .YearCat, 
days, hours, minutes, seconds, milliseconds) ; 
else if ( w->dbdata. Elements [n] .Type - XeTIME12 ) 
sprintf (hold, "%d: %03d: %02d: %02d: %02d. %03d", 
w->dbdata .Elements [n] .Year, 

days, hours, minutes, seconds, milliseconds) ; 
else if ( w->dbdata .Elements In] .Type - XeTIME18 ) 
sprintf (hold, "%03d:%02d:%02d:%02d.%03d", 

days, hours, minutes, seconds, milliseconds) ; 
else if ( w->dbdata .Elements [n] .Type - XeTIME19 ) 
sprintf (hold, "%d:%03d:%02d:%02d:%02d.%03d", 
w->dbdata .Elements [n] .YearCat, 
days, hours, minutes, seconds, milliseconds) ; 
else if ( w->dbdata. Elements [n] .Type - XeTIME20 ) 
sprintf (hold, "%d: %03d:%02d:%02d:%02d. %03d", 
w->dbdata. Elements [n] .Year, 

days, hours, minutes, seconds, milliseconds) ; 

) else ( 

Data .usdata [0] - * (long*) w->dbdata. Element s [n] .Value; 
Data.uldata[0] - ‘(unsigned long*) w->dbdata. Elements [n] .Value; 
days “ Data .usdata 10] » 6; 
hours - Data. usdata [0] £ 0x003F; 
minutes - ( Data .uldata [0] £ OxOOOOFEOO ) » 9; 
seconds - ( Data. uldata [0] £ 0x00000 IFF ) » 2; 
milliseconds - ( Data .uldata [1] £ OxlFFF ) » 3; 
if ( w->dbdata. Elements [n] .Type - XeTIMElO ) 
sprintf (hold, "%03d:%02d:%02d:%02d.%03d", 

days, hours, minutes, seconds, milliseconds ) ; 
else if < w->dbdata. Elements (n] .Type - XeTIMEll ) 
sprintf (hold, "%d:%03d:%02d:%02d:%02d.%03d", 
w->dbdata. Elements [n] .YearCat, 
days, hours, minutes, seconds, milliseconds) ; 
else if ( w->dbdata .Elements [n] .Type ■ XeTIME12 ) 
sprintf (hold, "%d:%03d:%02d:%02d:%02d.%03d", 
w->dbdata .Elements [n] .Year, 

days, hours, minutes, seconds, milliseconds) ; 
else if { w->dbdata. Elements [n] .Type - XeTIME18 ) 
sprintf (hold, "%03d:%02d:%02d:%02d.%03d", 

days, hours, minutes, seconds, milliseconds) ; 
else if ( w->dbdata .Elements [n] .Type “ XeTIME19 ) 
sprintf (hold, "%d: %03d: %02d: %02d: %02d. %03d", 
w->dbdata .Elements [n] .YearCat, 
days, hours, minutes, seconds, milliseconds) ; 
else if ( w->dbdata .Elements [n] .Type - XeTIME20 ) 
sprintf (hold, "%03d: %02d: %02d: %02d. %03d", 

days, hours, minutes, seconds, milliseconds) ; 

) 

break; 

case XeTIME13: /* Tabular time (hhh:mm:ss.sss) */ 

Data .usdata [0] « * (long*) w->dbdata. Elements [n] .Value; 
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hours - Data .usdata [0] & 0x003F; 
sprintf (hold, "%03x", hours ); 
break; 

case XeTIME16 : /* Tabular time (hhh:mm: ss . sss) */ 

Data . uldata [0] - ‘(unsigned long*) w->dbdata .Elements [n] .Value; 
hours - (Data. uldata [0] £ 0x003F0000) » 16; 
minutes ■ (Data .uldata [0] & OxOOOOFEOO) » 9; 
seconds - (Data .uldata [0] & OxOOOOOlFF) » 2; 
milliseconds - (Data .uldata tl] fi OxlFFF) » 3; 
sprintf (hold, "%02x: %02x: %02x. %03d", 

hours, minutes, seconds, milliseconds); 
break; 

case XeTIME15 : /* Tabular time (mm:ss. 3 ss) */ 

Data. uldata [0] - ‘(unsigned long*) w->dbdata .Elements [n] .Value; 
minutes ■ (Data. uldata [0] & OxOOOOFEOO) » 9; 

seconds - (Data .uldata [0] £ OxOOOOOlFF) » 2; 

milliseconds - (Data. uldata [1] £ OxlFFF) » 3; 
sprintf (hold* "%02x:%02x.%03d", 

minutes, seconds, milliseconds) ; 
break; 

case XeTIME17 ; /* Tabular time (sssss.sss) */ 

Data .usdata [0] - * (long*) w->dbdata .Elements (n] .Value; 

Data. uldata [0] • ‘(unsigned long*) w->dbdata. Elements [n] .Value; 

days - (Data .usdata [0] » 6 ) £ OxOOOF; 

days +- ( (Data. usdata [0] » 10) £ OxOOOF) * 10; 

days +- (Data. usdata [0] » 14 ) * 100; 

hours ■ Data. usdata [0] £ OxOOOF; 

hours +- ( (Data .usdata 10] » 4) £ 0x00000003) * 10; 

minutes - ( (Data .uldata [0] » 9 ) £ OxOOOOOOOF) ; 
minutes +- ( (Data. uldata [0] » 13) £ 0x00000007) * 10; 

seconds - (Data .uldata [0] » 2) £ OxOOOOOOOF; 
seconds +- ( (Data .uldata [0] » 6) £ 0x0000007) * 10; 
seconds +- (days * 86400) + (hours * 3600) + (minutes * 60); 

milliseconds - (Data. uldata [1] £ OxlFFF) » 3; 
sprintf (hold, "%*d.%03d", w->dbdata. Elements [n] .Width-4, 
seconds, milliseconds) ; 

break; 
default : 
break; 

) 

break; 


case 'E' : 

/* Single Precision Real 

*/ 

case 9 F f : 

/* Integer (Signed) 

*/ 

case 1 : 

/* Real 

*/ 

case 2: 

/* Integer (Signed) 

*/ 

case 3: 

/* Integer (No Complement) 

*/ 

case 4 : 

/* Integer (No Complement /Overflow) 

*/ 

case 5: 

/* Natural (Unsigned) 

*/ 

case 7 : 

/* BCD (Format X) 

*/ 

case 0 : 

/* BCD (Format Y) 

*/ 

case 9: 

/* BCD (TACAN Range) 

*/ 

case 10: 

/* BCD Analog Variable 

*/ 

case 12: 

/* BC Hex Analog Variable 

*/ 

case 14: 

/* Bit Weighted Analog Variable 

*/ 


switch ( w->dbdata . Elements [n] . Type ) { 
case XeFLOAT: 

if ( w->dbdata. Elements [n] .Length <- 32 ) ( 

Data . sfdata [0] - * (float*) w->dbdata. Elements [n] .Value; 
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sprintf (hold, w->dbdata .Format [n] , Data. sf data [0] ) ; 


} else ( 

^^.Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data.ddata); 

) 

break; 
case Xe SIGNED ; 

if ( w->dbdata. Elements [n] .Attrib — 'E' ) { 

Data.sfdata[0] - * (float*) w->dbdata .Elements (n] .Value; 
digit - Data.sfdata[0] ; 

) else { 

if ( w->dbdata. Elements [n] .Length <- 32 ) ( 

Data.sldata [0] - * (long*) w->dbdata .Elements [n] .Value; 
sprintf (hold, w->dbdata. Format [n] , Data . sldata [0] ) ; 

) else { 

Data.ddata - * (double*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata. Format [n] , Data.ddata); 

} 

) 

break; 

case XeUNSIGNED: 

if < w->dbdata .Elements [n] .Attrib “ 'E' ) { 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 
if (( Data.ddata < 2147483647.0 ) 4& (Data.ddata > -2147483648.0 )) 
idata “ Data.ddata; 

else 

idata - 2147483647; 

sprintf (hold, w->dbdat a .Format [n], idata); 

} else ( 

if ( w->dbdata .Elements [n] .Length <- 32 ) { 

Data.uldata (0) - ‘(unsigned long*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata. Format [n] , Data .uldata [0] ) ; 

) else { 

Data.ddata - * (double*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata. Format [n] , Data.ddata); 

) 

} 

break; 

case XeSCIENTIFIC: 

if ( w->dbdata .Elements [n] .Length <■ 32 ) { 

if ( w->dbdata .Elements [n] . StatFlag ! — 0 ) { 

Data . sldata [0] « * (long*) w->dbdata. Elements [n] .Value; 
sprintf (hold, "%*.*E", w->dbdata. Elements {n] .Width, 

w->dbdata .Elements [n] .Precision-5, Data. sldata [0] ) ; 

) else { 

Data.sldata [0] - * (long*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata. Format [n] , Data. sldata [0] ) ; 

) 

) else ( 

if ( w->dbdata .Elements [n] .StatFlag !- 0 ) ( 

Data.ddata - * (double*) w->dbdata. Elements [n] .Value; 
sprintf (hold, "%*.*E", w- >dbdata. Elements [n] .Width, 

w->dbdata. Elements In] .Precision-5, Data.ddata) ; 

} else ( 

Data.ddata - * (double*) w->dbdata. Element s (n] .Value ; 
sprintf (hold, w->dbdata. Format [n] , Data.ddata); 

} 

} 

break; 

case XeHEXADECIMAL : 

Data.ddata - * (double*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data.ddata); 
break; 

case XeOCTAL: 




Data.ddata - * (double*) w->dbdata .Elements [n] .Value/ 
sprintf (hold, w->dbdat a . Format [n] , Data.ddata); 
b£fiak; 

case XeB INARY : 

Data . ldata [0] - *(unsigned long*) w->dbdata .Elements [n] .Value ; 
get_bin ( Data. ldata [0] , w->dbdata .Elements [n] .Width, bitstr ); 
sprintf (hold, w->dbdata . Format [n] , bitstr); 
break; 

case XeMULTITEXT : 

strcpy (hold, w- >dbdat a .Elements [n] .Value); 
break; 
default : 
break; 


} 

break; 



case 'B': /* Discrete */ 

case 24: /* Discrete */ 

if ( w->dbdata .Elements [n] .Type — XeMULTITEXT) 
strcpy (hold, w->dbdat a .Elements [n] .Value); 
break; 


/* 

* 


case 'A': /* ASCII Character String 

22: /* EBCDIC Character String 

case 23: /* ASCII Character String 

if ( w->dbdata. Elements [n] .Type -- XeCHARACTER ) 

sprintf (hold, w->dbdata .Format [n] , w->dbdata. Elements [n] .Value ); 
break; 
default : 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data.ddata); 
break; 

) 

XText Extents (w->dbdata .DefFont, hold, MAXLENGTH, fidir, 
fiaacent, (descent, tchar_info) ; 

w->dbdata .MaxWidth - MAX (w->dbdata .MaxWidth, char info. width); 

) 

w->dbdata.FontHeight - ascent + descent; 


*/ 

*/ 

*/ 


If the user has specified PACKING as XeNO_PACKING, use the user positions. 

* Otherwise, set up the column and row orientation based on the resources 

* selected by the user. 

*/ 


if ( w->dbdata . Packing L- XeNO_PACKING ) { 


if ( w->dbdata.LabelOrientation — XeCORR_LABEL ){ 
width - w->dbdata. MaxWidth + label_width; 

} else 

width - w->dbdata .MaxWidth; 
if ( w->dbdata. Orientation — Xe VERTICAL ) ( 

rows “ w->dbdata.NumValues / w->dbdata.NumColumns; 

columns ** w->dbdata.NximColumns; 

if ( rows*columns < w->dbdata . NumValues ) rows++; 

} else if ( w->dbdata. Orientation -- XeHORI ZONTAL ) { 
rows " w->dbdata.NumColtunns; 

colvimns - w->dbdata .NumValues / w->dbdata .NumColumns; 
if ( rows*columns < w->dbdata .NumValues ) columns++; 

) else ( 

num_sqrt - w->dbdata .NumValues* (w->dbdata .FontHeight+1) *w->core .width/ 
(width*w->core .height) ; 
val_sqrt - sqrt (num_sqrt) ; 
columns - val_sqrt; 

rows - w->dbdata.NtunValues / columns; 

if ( rows*columns < w->dbdata .NumValues ) rows++; 
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/★ 

* Set the number-^of - rows and columns of labels based on the type of labels 

* to be displayed. 

*/ 

if ( w->dbdata . LabelOrientation — XeTABLE_LABEL ) { 

label_rows - 1; 
label — columns ■ 0; 

} else if ( w->dbdata. LabelOrientation “ XeROW_COLUMN ) { 

label_rows - 1; 
label_ columns - 1; 

} else if ( w->dbdata. LabelOrientation — XeCORR_LABEL ) { 

label_rows - 0; 
label_columns • columns; 

} else if { w->dbdata . LabelOrientation -- XeNO_LABEL_ORIENT ) { 

label_rows - 0; 
label_columns - 0; 

} 

/* 

* Calculate the midpoint of the window. 

*/ 

w->dbdata .MidY - w->co re. height /2; 

w->dbdata.MidX - w->core . width/2 ; 


/* 

★ 

*/ 


/* 

* 

*/ 


/* 

* 

* 


*/ 


Calculate the delta values to go from one value and label to the next . 

if < w->dbdata. Packing — XePACKJTIGHT ) { 

delta_y ■ w->dbdat a. FontHeight + 1; 
delta_x - width + 5; 

} else { 

delta_y - w->core. height / (rows + label_rows) ; 
if ( delta y < w->dbdata .FontHeight ) 

delta_y - w->dbdata .FontHeight; 
delta_x - w->core. width / columns; 
if ( delta_x < width ) 

delta x - width + 5; 


Calculate the starting position of each value. 

starty - w->dbdata .MidY - ((( <label_r ows + rows) * delta_y) - delta _y/2) 

if ( w->dbdata. LabelOrientation -- XeTABLE_ LABEL ) ( 

startx ■ w->dbdata . MidX - ( (delta_x * columns) - delta_x/2) / 2; 

} else if ( w->dbdata. LabelOrientation “ XeROW_COLUMN ) { 

startx - w->dbdata.MidX - { ( (delta_x * columns) - delta_x/2 + 

(label_columns * w->dbdata .LabelWidth )) 

) else if ( w->dbdata. LabelOrientation " XeCORR_LABEL ) { 

startx - w->dbdata.MidX - ( (delta_x * columns) - delta_x/2) / 2; 
startx — w->dbdata . LabelWidth; 

) else if ( w->dbdata. LabelOrientation — XeNO_LABEL_ORIENT ) { 

startx - w->dbdata.MidX - ( ( (delta_ x * columns) - delta_x/2) / 2) ; 

) 

if ( startx < 0 ) startx - 0; 

if ( starty < w->dbdata .FontHeight ) starty - w->dbdata. FontHeight; 

Set up the label orientations based on the resources selected by the 
user . 

for ( n - 0; n < w->dbdata .NumValues; n++ ) { 

w->dbdata. Labels [n] .LabelX - -100; 
w->dbdata . Labels [n] . LabelY - -100; 

) 

if ( w->dbdata. LabelOrientation — XeTABLE_LABEL ) { 

w->dbdata.Labels [0] .LabelX - startx; 


/ 2 ) 


/ 2 ) 




w->dbdata . Labels [0] .LabelY - starty; 


starty +- delta_y; 

} else if-i-Wr>dbdata.LabelOrientation -- XeROW_COLUMN ) { 
if ( w->dbdata. Orientation — Xe VERTICAL ) { 

w->dbdata. Labels [0] .LabelX - startx + w->dbdata . LabelWidth; 
w->dbdata . Labels (0] . LabelY - starty; 
for ( n - 1; n < columns; n++ ) { 

w->dbdata. Labels [n] .LabelX - w->dbdata. Labels [n-1] .LabelX + delta_x; 
w->dbdata. Labels [n] .LabelY - w->dbdata. Labels (n-1] .LabelY; 

} 

w->dbdata . Labels [n] . LabelX ■> startx; 

w->dbdata. Labels [n] .LabelY - starty + delta_y; 

for ( n - columns+1; n < w->dbdata .NumLabels; n++ ) { 

w->dbdata. Labels [n] .LabelX - w->dbdata .Labels [n-1] . LabelX; 
w->dbdata .Labels [nj .LabelY - w->dbdata. Labels [n-1] .LabelY + delta _y; 

) else { 

w->dbdata. Labels [0] .LabelX - startx; 
w->dbdata.Labels[0] .LabelY - starty + delta_y; 
for ( n - 1; n < rows; n++ ) { 

w->dbdata. Labels [n] .LabelX - w->dbdat a. Labels [n-1] .LabelX ; 

^ w->dbdata. Labels [n] .LabelY - w->dbdata. Labels [n-1] .LabelY + delta_y; 

w->dbdata. Labels [n] .LabelX - startx + w->dbdata. LabelWidth; 

w->dbdata. Labels [n] .LabelY - starty; 

for ( n - rows+1; n < w->dbdata . NumLabels ; n++ ) ( 

w->dbdata. Labels [n] .LabelX - w->dbdata. Labels [n-1] .LabelX + delta_x; 
w->dbdata. Labels [n] .LabelY - w->dbdata. Labels [n-1] .LabelY; ~ 

) 

} 


y; 


startx +- w->dbdata. LabelWidth; 
starty +- delta_y; 

} else if ( w->dbdata.LabelOrientation XeCORR_LABEL ) { 
w->dbdata. Labels [0] .LabelX - startx; 
w->dbdata.Labels[0] .LabelY - starty; 
row - 0; 

for ( n - 0; n < w->dbdata .NumLabels; n++ ) { 
row +- 1; 

if ( w->dbdata. Orientation -- XeHORI ZONT AL ) [ 
if ( n !- 0 ) { 

w->dbdata. Labels [n] .LabelY - w->dbdata. Labels [n-1] .LabelY + delta 


) 


w->dbdata. Labels [n] .LabelX - w->dbdata. Labels [n-1] .LabelX; 

if ( row > rows ) { 
row “1; 

w->dbdata. Labels [n] .LabelY - starty; 
w->dbdata. Labels [n] .LabelX +- delta x; 

} 

} else { 

if ( n !- 0 ) { 

w->dbdata. Labels [n] .LabelY - w->dbdata. Labels [n-1] .LabelY; 
w->dbdata. Labels [n] .LabelX - 

w->dbdata . Labels [n-1] .LabelX + delta x; 


} 

if ( row > columns ) { 
row -1; 


w->dbdata. Labels [n] .LabelY +- delta_y; 
w->dbdata. Labels [n] .LabelX - startx; 

> 


startx +- w->dbdata .LabelWidth; 


> 
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* Calculate the positions of each value. 

*/ -- • 

w->dbdata .Elements (0] .Y - starty; 
w->dbdata .Elements [0] .X “ startx; 
row * 0; 

for ( n - 0; n < w->dbdata .NumValues; n++ ) ( 

row +“ 1; 

if ( w->dbdata .Orientation — XeHORIZONTAL ) { 

if ( n !- 0 ) 1 

w->dbdata. Elements [n] .Y - w->dbdata. Elements [n-1] .Y + delta_y 
w->dbdata. Elements [n] .X - w->dbdata. Elements [n-1] .X; 

} 

if ( row > rows ) { 

row - 1; 

w->dbdata. Elements [n] .Y - starty; 
w->dbdata. Elements [n] .X +- delta_x; 

> 

l else { 

if ( n !- 0 ) { 

w->dbdat a. Elements [n] . Y - w->dbdata. Elements [n-1] .Y; 
w->dbdata .Elements [n] .X - w->dbdata .Elements [n-1] . X + delta_x 

] 

if ( row > columns ) { 

row ■ 1; 

w->dbdata. Elements [n] .Y +- delta _y; 
w->dbdata .Elements [n] .X ■ startx; 

] 


;************************************************************************** 

* METHOD NAME: Redisplay 

* 

* This method is responsible for redrawing any information in the 

* widget's window when an Expose event occurs. 

* 

★*************************************************************************/ 
static void Redisplay ( w, event, region ) 

XeDbdat a Widget w; 

XEvent *event ; 

Region region; 


Display ^display 

if ( w->core .visible ) { 

XSetRegion ( display, 
XSetRegion { display, 
XSetRegion ( display, 
XSetRegion ( display, 
XSetRegion { display, 
XSetRegion ( display, 
XSetRegion ( display, 
XSetRegion ( display, 
XSetRegion ( display, 
w->dbdata .Redisplay - 
update_gc ( w ) ; 
w->dbdata. Redisplay - 

} 


- XtDisplay (w) ; 


w->dbdata 

w->dbdata 

w->dbdata 

w->dbdata 

w->dbdata 

w->dbdata 

w->dbdata 

w->dbdata 

w->dbdata 

TRUE; 

FALSE; 


.LabGC, region ); 
.NomGC, region ) ; 
.StaGC, region ); 
.OvrGC, region ) ; 
.DeadGC, region ) ; 
. LowGC, region ); 

. HiGC, region ); 
.CrLGC, region ) ; 
.CrHGC, region ) ; 


a************************************************************************* 

* MODULE NAME: updata_gc 

★ 

* This function is an internal function used to calculate the 





display positions of all values and labels based on the 
orientation settings. 


* 



static update_gc ( w ) 
XeDbdataWidget w; 

{ 


int 


digit, 

ival, 

n; 

unsigned 

int 

idata; 

short 


first_status - XeNO, 
truncate_f lag - XeNO 

long 


color, 
u va 1 ; 

unsigned 

long 

days, 

hours, 

milliseconds, 

minutes, 

seconds; 

double 


real_hours. 


real_ min, 
real sec; 


char 

hold [MAXLENGTH] , 
bitstr [MAXLENGTH] ; 

Display 

♦display - XtDisplay 

Window 

root - XtWindow(w); 

GC 

gc; 

Boolean 

Min_Hit - FALSE, 
Max_Hit - FALSE; 

char 

♦malloc () ; 

char 

stat_char [3] ; 

void 

getjcin ( ) ; 

struct list 

*top_min, 

*cur_min, 

*prev_min, 

♦top_max, 

*cur_jnax, 

♦prevjmax; 


xedbdataCallbackStruct cb; 


/* Msid status 

/* Set to yes when truncated 


(w) ; 


*/ 

*/ 


for 


} 

for 


( n - 0; n < w->dbdata .NumLabels; n++ ) { 
if ( w->dbdat a. Labels [n] .LabelX !« -100 ) { 

XDrawImageString (display, root, w->dbdata.LabGC, 

w->dbdata. Labels [n] .LabelX, w->dbda ta. Labels [n] .LabelY, 

w->dbdata . Label [n] , 

strlen (w->dbdata . Label [n] ) ) ; 

} 

( n - 0; n < w->dbdata.NumValues; n++ ) ( 

if (( w->dbdat a . OldValue Cn] !- w->dbdat a .Elements [n] .Value ) || 

( w->dbdata. Redisplay) ) { 

w->dbdata. OldValue [n] - w->dbdata. Elements [n] .Value; 
switch ( w->dbdat a. Elements [n] .Attrib ) ( 

/* Discrete Parent 
/* Double Precision Real 
/* Natural (Unsigned) 

/* Discrete Parent 
/* BCD Time Variable 
/* BCD Hex Time Variable 
/* Bit Weighted Time Variable 
/* Bit Weighted Clock Time 
/* Bit Weighted Clock Time 


case 'P' : 
case 9 D' : 
case 9 L' : 
case 06: 
case 11: 
case 13: 
case 15: 
case 16: 
case 17: 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 
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case i8: /* Bit Weighted GMT/MET 

case 19: /* Spacelab Floating Point 

case 2 -di-_ /* Experiment I/O GMT (Type X) */ 

case 21: /* Experiment I/O GMT (Type H) */ 

switch ( w->dbdata. Elements [n] .Type ) { 

case XeFLOAT: 

if ( w->dbdata .Elements [n] .Length <- 32 ) { 

Data.sfdata [0] - * (long*) w->dbdata. Element s [n] .Value; 
sprintf (hold, w->dbdat a .Format [n] , Data .sfdata [0] ) ; 

) else { 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data.ddata); 

) 

break; 

case Xe SIGNED : 

if (( w->dbdata .Elements [n] .Att rib — 'D' ) II 
( w->dbdat a .Elements [n] .Attrib " 19 )) { 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 

if (( Data.ddata < 2147483647.0 ) 66 (Data.ddata > -2147483648.0 ) 

digit - Data.ddata; 

else 

digit - 2147483647; 

sprintf (hold, w->dbdat a .Format [n] , digit); 

) else { 

if ( w->dbdat a. Element s (n] .Length <- 32 ) ( 

Data . ldata [0] - * (unsigned long*) w->dbdata .Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data. ldata [0] ) ; 

} else { 

Data.ddata - * (double*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdat a .Format [n] , Data.ddata); 
l 

} 

break; 

case Xe UNSIGNED : 

if (( w->dbdata .Elements In] .Attrib — 'D' ) || 

( w->dbdata .Elements In] .Attrib 19 ) ) { 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 

if (( Data.ddata < 2147483647.0 ) && (Data.ddata > -2147483648.0 ) 

Data .usdata [0] - Data.ddata; 

else 

Data. usdata [0] - 2147483647; 
sprintf (hold, w->dbdata. Format [n] , Dat a. usdata [0] ) ; 

) else ( 

if ( w->dbdata .Elements [n] .Length o 32 ) ( 

Data.ldata[0] - * (unsigned long*) w->dbdata .Elements [n] .Value ; 
sprintf (hold, w->dbdata. Format [n] , Data . ldata [0] ) ; 

} else ( 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 
sprintf (hold, w->dbdata. Format [n] , Data.ddata); 

> 

} 

break; 

case XeSCIENTIFIC : 

if ( w->dbdata. Elements In] .Length <- 32 ) { 

if ( w->dbdat a. Element s [n] .StatFlag !- 0 ) { 

Data . ldata [0] - * (unsigned long*) w->dbdata. Elements [n] .Value; 
sprintf (hold, "%*.*E", w->dbdata .Elements [n] .Width, 

w->dbdata. Elements [n] .Precision-5, Data. ldata [ 0 ] ) ; 

) else { 

Data . ldata [0] » * (unsigned long*) w->dbdata .Elements [n] . Value; 
sprintf (hold, w->dbdat a .Format [n] , Data . ldata [0]); 



1 





) else { 
if ( 
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w->dbdata .Elements [n] .StatFlag !— 0 ) { 

Data .ddata - * (double*) w->dbdata .Elements [n] .Value; 
sprintf (hold, "%*.*E", w->dbdata. Elements [n] .Width, 

w->dbdata .Elements [n] .Precision-5, Data. ddata) ; 


) else ( 

Data. ddata » * (double*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata. Format [n] , Data. ddata); 

} 


( 

break; 

case XeHEXADECIMAL: 

Data. ddata - * (double*) w->dbdata .Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data. ddata); 
break; 

case XeOCTAL: 

Data. ddata - * (double*) w->dbdata .Elements [n] .Value; 
sprintf (bold, w->dbdata .Format [n] , Data. ddata); 
break; 

case XeBINARY: 

Data.ldata [0] - * (unsigned long*) w->dbdata. Elements [n] .Value; 
get_bin ( Data . ldata [0] , w->dbdata .Elements [n] .width, bitstr ); 
sprintf (hold, w->dbdata .Format [n] , bitstr); 
break; 


case XeMULTITEXT: 
strcpy (hold, 
break; 

case XeTZMElO: 
case XeTIMEll: 
case XeTIME12 : 
case XeTIME18 : 
case XeTXME19; 
case XeTIME20: 

if ( w->dbdata 


w->dbdata.Elements[n] .Value) ; 

/* Tabular time (ddd:hh:mm:ss.sss) 

/* Tabular time (yyyy:ddd:hh:mm:ss.S33) 
/* Tabular time (yy:ddd:hh:mm:ss .sss) 

/* Tabular time (ddd:hh;mm;ss.sss) 

/* Tabular time (yyyy:ddd:hh:mm:ss .sss) 
/* Tabular time (yyyy :ddd:hh :mm: ss . sss) 
. Elements [n] .Attrib — 'D' ) { 


Data. ddata - * (double*) w->dbdata .Elements [n] .Value; 
days «• Data. ddata / 24.0; 

real_hours - Data. ddata - ( (double)days * 24.0); 
hours — real_hours; 

real_min - (real_hours - (double) hours) * 60.0; 
minutes “ real_min; 

real_sec * (real_min - (double) minutes) * 60.0; 
seconds - real_sec; 

milliseconds * (real_sec - (double) seconds) * 1000.0; 
if ( w->dbdata. Elements [n] .Type - XeTIMElO ) 
sprintf (hold, "%03d:%02d:%02d:%02d.%03d n , 

days, hours, minutes, seconds, milliseconds ) ; 
else if ( w->dbdata. Elements [n] .Type - XeTIMEll ) 
sprintf (hold, "%d:%03d:%02d:%02d:%02d.%03d", 
w->dbdata. Elements [n] . YearCat, 
days, hours, minutes, seconds, milliseconds) ; 
else if { w->dbdata .Elements [n] .Type - XeTIME12 ) 
sprintf (hold, "%d: %03d:%02d: %02d: %02d. %03d", 
w->dbdata. Elements [n] .Year, 

days, hours, minutes, seconds, milliseconds); 
else if ( w->dbdata. Elements [n] .Type - XeTIME18 ) 
sprintf (hold, "%03d: %02d: %02d: %02d. %03d", 

days, hours, minutes, seconds, milliseconds) ; 
else if ( w->dbdata. Elements [n] .Type - XeTIME19 ) 
sprintf (hold, "%d: %03d: %02d: %02d: %02d. %03d", 
w->dbdata. Elements [n] .YearCat, 
days, hours, minutes, seconds, milliseconds) ; 
else if ( w->dbdata .Elements [n] .Type - XeTIME20 ) 
sprintf (hold, "%d: %03d: %02d: %02d: %02d. %03d", 
w->dbdata. Elements [n] .Year, 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 
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days, hours, minutes, seconds, milliseconds) ; 

) else { 

Data .usdata [0] - * (long*) w->dbdata .Elements [n] .Value; 

Data .uldata [0] - * (unsigned long*) w->dbdata .Elements [n] .Value ; 
days - Data.usdatafO] » 6; 
hours - Data .usdata [0] & 0x003F; 
minutes - ( Data .uldata [0] & OxOOOOFEOO ) » 9; 
seconds - ( Data. uldata [0] 6 OxOOOOOlFF ) » 2; 
milliseconds - { Data .uldata [0] & OxlFFF ) » 3; 
if ( w->dbdata. Element s [n] .Type - XeTIMElO ) 
sprintf (hold, "%03d: %02d: %02d: %02d. %03d", 

days, hours, minutes, seconds, milliseconds ) ; 
else if ( w->dbdata. Elements [n] .Type - XeTIMEll ) 
sprintf (hold, "%d: %03d: %02d: %02d: %02d. %03d” , 
w->dbdat a .Elements [n] .YearCat, 
days, hours, minutes, seconds, milliseconds) ; 
else if ( w->dbdata .Elements [n] .Type - XeTIME12 ) 
sprintf (hold, "%d: %03d: %02d: %02d: %02d. %03d", 
w->dbdata .Elements fn] .Year, 

days, hours, minutes, seconds, milliseconds) ; 
else if ( w->dbdata .Elements [n] .Type - XeTIME18 ) 
sprintf (hold, "%03d: %02d: %02d: %02d. %03d”, 

days, hours, minutes, seconds, milliseconds) ; 
else if ( w->dbdat a. Elements [n] .Type - XeTIME19 ) 
sprintf (hold, "%d: %03d: %02d: %02d: %02d. %03d", 
w->dbdata .Elements [n] .YearCat, 
days, hours, minutes, seconds, milliseconds) ; 
else if ( w->dbdata .Elements [n] .Type - XeTIME20 ) 
sprintf (hold, "%03d: %02d: %02d: %02d. %03d", 

days, hours, minutes, seconds, milliseconds) ; 

} 

break; 

case XeTIME13: /* Tabular time (hhh:mm:ss.sss) */ 

Data. usdata [0] - * (long*) w->dbdata. Elements [n] .Value; 
hours - Data .usdata [0] £ 0x003F; 
sprintf (hold, "%03x", hours ); 
break; 

case XeTIME16: /* Tabular time (hhh :mm: ss . sss) */ 

Data .uldata [0] - *(unsigned long*) w->dbdata .Elements [n] .Value; 
hours - (Data. uldata [0] £ 0x003F0000) » 16; 
minutes « (Data .uldata [0] £ OxOOOOFEOO) » 9; 

seconds - (Data .uldata [0] 6 OxOOOOOlFF) » 2; 

milliseconds - (Data .uldata [1] 6 OxlFFF) » 3; 
sprintf (hold, "%02x: %02x : %02x. %03d", 

hours, minutes, seconds, milliseconds) ; 
break; 

case XeTIMElS: /* Tabular time (mm:ss.sss) */ 

Data .uldata [0] - Munsigned long*) w->dbdata .Elements [n] .Valued- 
minutes - (Data .uldata [0] £ OxOOOOFEOO) » 9; 

seconds - (Data .uldata [0] & OxOOOOOlFF) » 2; 

milliseconds - (Data . uldata [1] & OxlFFF) » 3; 
sprintf (hold, "%02x: %02x. %03d", 

minutes, seconds, milliseconds); 
break; 

case XeTlME17 : /* Tabular time (sssss.sss) */ 

Data .usdata [0] - * (long*) w->dbdata .Elements [n] .Value; 

Data .uldata [0] - * (unsigned long*) w->dbdata .Elements [n] .Value; 

days - (Data .usdata [0] » 6 ) & OxOOOF; 

days +- ((Data.usdatafO] » 10) & OxOOOF) * 10; 

days +- (Data.usdatafO] » 14 ) * 100; 

hours - Data.usdatafO] & OxOOOF; 

hours +- ((Data.usdatafO] >> 4) & 0x00000003) * 10; 
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minutes - ( (Data .uldata [0] » 9 ) £ OxOOOOOOOF); 
minutes +- ( (Data .uldata [0] » 13) & 0x00000007) 



10 ; 


seconds - (Data. uldata [0] » 2) & OxOOOOOOOF; 
seconds +- ( (Data .uldata [0] » 6) 6 0x0000007) * 10; 
seconds +- (days * 86400) + (hours * 3600) + (minutes * 


60) ; 


milliseconds ■ (Data. uldata [1] & OxlFFF) » 3; 
sprint f (hold, "%*d.%03d", w->dbdata .Elements [n] .width-4, 
seconds, milliseconds) ; 

break; 
default : 
break; 

} 

break; 


case 'E' : 

/* Single Precision Real 

*/ 

case : 

/* Integer (Signed) 

*/ 

case 1 


/* Real 

*/ 

case 2 


/* Integer (Signed) 

*/ 

case 3 


/* Integer (No Corr^lement ) 

*/ 

case 4 


/* Integer (No Cott^lement/Overf low) 

*/ 

case 5 


/* Natural (Unsigned) 

*/ 

case 7 


/* BCD (Format X) 

*/ 

case 8 


/* BCD (Format Y) 

*/ 

case 9 


/* BCD (TACAN Range) 

*/ 

case 10: 

/* BCD Analog Variable 

*/ 

case 12: 

/* BCD Hex Analog Variable 

*/ 

case 14: 

/* Bit Weighted Analog Varialble 

*/ 

switch ( w->dbdat a . Elements [n] , Type ) { 



case XeFLOAT: 

if ( w->dbdata. Elements [n] .Length <- 32 ) { 

Data . sfdata [0] - * (float*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data. sfdata [0] ) ; 

) else { 

Data.ddata - * (double*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data.ddata); 

} 

break; 

case XeSIGNED : 

if ( w->dbdata. Elements [n] .Attrib — 'E' ) ( 

Data. sfdata [0] - * (long*) w->dbdata. Element s [n] .Value; 
digit - Data. sfdata [0] ; 

) else { 

if ( w->dbdata. Elements [n] .Length <« 32 ) ( 

Data.ldatatO] - * (unsigned long*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data . Idata [0] ) ; 

} else ( 

Data.ddata - * (double*) w->dbdata. Elements [n] .Value; 
sprintf (hold, w->dbdata . Format [n] , Data.ddata); 


) 


} 


break; 

case XeUNS IGNED : 

if ( w->dbdata. Elements [n] .Attrib — 'E' ) { 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 

if (( Data.ddata < 2147483647.0 ) && (Data.ddata > -2147483648. 

idata - Data.ddata; 

else 

idata - 2147483647; 

sprintf (hold, w->dbdat a .Format tn] , idata); 

) else { 

if ( w->dbdata .Elements [n] .Length <- 32 ) ( 


0 ) 
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Data . ldata [0] - * (unsigned long*) w->dbdata. Elements [n] 
sprint f (hold, w->dbdata .Format [n] , Data .ldata [0] ) ; 
else ( 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 
sprintf (hold, w— >dbdat a • Format [n] , Data.ddata); 



.Value; 


} 


} 


break; 

case XeSCIENTIFIC: 

if ( w->dbdata. Elements [n] .Length <- 32 ) { 

if ( w->dbdata. Element s [n] .StatFlag !- 0 ) { 

Data.ldata[0] - *{unsigned long*) w->dbdata .Elements [n] .Value; 
sprintf (hold, "%*.*E", w->dbdata .Elements [n] .Width, 

w->dbdat a. Elements [n] .Precision-5, Data . ldata [ 0 ] ) 

) else { 

Data . ldata [0] - * (unsigned long*) w->dbdata. Element s [n] .Value ; 
sprintf (hold, w->dbdat a . Format [n] , Data . ldata [0]); 


} 


} 

else 

if 


{ 

( w->dbdata .Elements [n] .StatFlag !- 0 ) ( 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value ; 
sprintf (hold, "%*.*E", w->dbdat a .Elements [n] .Width, 

w->dbdata. Elements (n] .Precision-5, Data.ddata) ; 

else { 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 
sprintf (hold, w->dbdat a. Format [n] , Data.ddata); 


} 


) 


break; 

case XeHEXADECIMAL : 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data.ddata); 
break; 

case XeOCTAL: 

Data.ddata - * (double*) w->dbdata .Elements [n] .Value; 
sprintf (hold, w->dbdata .Format tn] , Data.ddata); 
break; 

case XeBINARY : 

Data . ldata [0] - Munsigned long*) w->dbdata .Elements [n] .Value; 
get_ bin ( Data . ldata [0] , w->dbdata .Elements [n] .Width, bitstr ); 
sprintf (hold, w->dbdat a .Format [n] , bitstr); 
break; 

case XeMULTITEXT: 

strcpy (hold, w->dbdat a. Elements [n] .Value) ; 
break; 
default : 
break; 

} 


/* Discrete 
/* Discrete 


*/ 

*/ 


*/ 

*/ 

*/ 


break; 
case ' B' : 
case 24; 

if ( w->dbdata .Elements [n] .Type — XeMULTITEXT) 
strcpy (hold, w->dbdata .Elements tn] .Value) ; 
break; 

case f k' : /* ASCII Character String 

case 22: /* EBCDIC Character String 

case 23: /* ASCII Character String 

if ( w->dbdata. Elements [n] .Type — XeCHARACTER ) { 

sprintf (hold, w->dbdat a .Format [n] , w->dbdata . Elements [n] .Value ) 

) 

break; 
default : 

Data.ddata - * (double*) w->dbdat a .Elements [n] .Value; 
sprintf (hold, w->dbdata .Format [n] , Data.ddata); 
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break; 

} 

/* -- 

* Check for set status bits and attach a status character 
*/ 



to the display string. 


first_status - XeNO; 

/* 

* Dead Data 

*/ 

if ( w->dbdata. Elements [n] .DispStat £ XeDEAD_DATA ) { 
color - w->dbdata. Elements [n] .DeadColor; 
gc - w->dbdata . DeadGC; 
stat_char[0] ■ 'D'; 
for ( i - 0; i < MAXLENGTH; i++ ) 
holdfi] - ' '; 
first_status - Xe YES ; 

/* 

* Missing 

*/ 

} else if ( w->dbdata. Elements [n] .DispStat & XeMISS ING_DATA ) { 
color - w->dbdata. Elements [n] .StaColor; 
gc - w->dbdata.StaGC; 
stat_char[0] - 'M'; 
for ( i - 0; i < MAXLENGTH; i++ ) 
holdti] - ' '; 
first_3tatus ■ XeYES; 

/* 

* Static 

*/ 

} else if < w->dbdata .Elements [n] .DispStat £ XeSTAT IC_D ATA ) { 
color » w->dbdata. Elements [n] .StaColor; 
gc ” w->dbdata.StaGC; 
stat_char[0] - 'S'; 
first_status - XeYES; 

/* 


* Out of crit . high 
*/ 

} else if < w->dbdata.Elements[n] .DispStat £ XeOFF_SCALE_HIGH ) { 
color - w->dbdata. Elements [n] .CrHColor; 
gc ” w->dbdata.CrHGC; 
stat_char[0] - 'H'; 
first status - XeYES; 

/* 

* Out of crit . low 
*/ 

} else if ( w->dbdata. Elements [n] .DispStat £ XeOFF_SCALE_LOW ) { 
color - w->dbdata. Elements [n] .CrLColor; 
gc - w->dbdata .CrLGC; 

3tat_char[0] - 'L'; 
first status - XeYES; 

/* 

* Out of crit . high 

*/ 

) else if ( w->dbdata. Elements [n] .DispStat £ XeCRITICAL HIGH ) { 
color - w->dbdata. Elements [n] .CrHColor; 
gc - w->dbdata . CrHGC; 
stat_char£0] - 'H'; 
first status - XeYES; 

/* 

* Out of crit . low 
V 

} else if ( w->dbdata. Elements [n] .DispStat £ XeCRITICAL LOW ) { 
color - w->dbdata. Elements [n] .CrLColor; 
gc - w->dbdata. CrLGC; 



stat_char [0] 
first status 
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' 1/ ? 

XeYES ; 


Out of limits high 


} else if ( w->dbdata.Elements [n] .DispStat & XeLIMIT_HIGH ) { 

color - w->dbdata. Elements [n] .HiColor; 
gc - w->dbdata . HiGC; 
stat_char[0] - 'H f ; 
first_status - XeYES; 
if ( !Max_Hit ) { 

top_max - (struct list*) malloc (sizeof (struct list) ) ; 
cur_max - top_max; 
prev_max ■ top_max; 

) else { 

prev max->next ■ (struct list*) malloc (sizeof (struct list)) 
cur_max - prev_ max->next ; 

) 

cur_max-> index - n; 
cur_max->next - NULL; 
prev_max - cur_max; 

Max Hit - TRUE; 


Out of limits low 


) else if ( w->dbdata .Elements [n] .DispStat & XeLIMIT_LOW ) { 

color - w->dbdat a .Elements [n] .LowColor; 
gc - w->dbdata . LowGC; 
stat_char[0] - r L'; 
first_status - XeYES; 
if ( !Min_Hit ) { 

topjmin - (struct list*) malloc (sizeof (struct list)); 
cur_min - top_min ; 
prev_min - top_min; 

} else ( 

prev_min->next - (struct list*) malloc (sizeof (struct list)) 
cur_min » prev_min->next ; 

) 

cur_min->index - n; 
cur_min->next • NULL; 
prev_min - cur_min; 

Min_Hit - TRUE; 

} 


Truncation 

if { truncate_f lag " XeYES ) ( 

stat_char[0] - 'T'; 
truncate_flag - XeNO; 
first_status - XeYES; 

) 

if ( first_status — XeNO ) { 

color - w->dbdata. Elements [n] .NomColor; 
gc - w->dbdata.NomGC; 
stat_char[0] - ' 

) 

hold [w->dbdata. Elements [n] .Width] - NULL; 

stat_char[l] - NULL; 

if ( w->dbdata .Elements [n] . StatFlag — 0 ) 
stat_char[0] - ' '; 

strncat ( hold, stat_char, 2 ) ; 


XDrawImageString (display, root, gc 




> 

} 

/* 

* Check 
*/ 
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w->dbdata. Elements [n] .X, w->dbdata. Elements [n] .Y, hold, 
strlen (hold) ) ; 


End o-f if Change or Redisplay */ 

/* End of Number of Values Loop */ 

for limit exceptions and execute the appropriate callback routines. 


if ( Max_Hit && !w->dbdat a. Redisplay ) { 

cb. indices - top_max; 

XtCallCallbacks (w, XtNmaxCallback, &cb) ; 
cur_max - top_max; 
while ( cur_max !« NULL ) { 

prev_max - cur_max; 
cur_max - prev_max->next ; 
free ( prev_max ) / 

} 


) 

if 


) 


( Min_Hit && ! w->dbdata . Redisplay ) { 
cb. indices » top_min; 

XtCallCallbacks (w, XtNminCallback, &cb) ; 
cur_min - top_min; 
while ( cur_min !- NULL ) { 

prev_min - cur_min ; 
cur_min - prev_min->next ; 
free ( prev_min ) ; 

) 




*************************** 


* MODULE NAME: getjbin 

★ 


* 


* This function converts an unsigned integer value into a string 

* of length 'precision'. 

it 


m*********************************************,****^^^^^^^^^^ 

void getjbin ( uval, width, bitstr ) 
long uval; 

int width; 

char bitstr []; 

{ 


int n; 

long bit; 


for ( n - 0; n < width; n++ ) { 

bit - (( uval » ( width - n - 1 )) s ~(~0«1)); 
if ( bit & 01 ) 

bitstr [n] - '1'; 

else 


> 


bitstrfn] - 'O'; 


bitstr[n] - ' \ 0 ' ; 


) 

/****************** ******************* 
* METHOD NAME: SetValues 


*********************************** 


** 


* This method allows a widget to be notified when one of its 

resources is set or changed. This can occur when the 

* resource manager initializes the widget's resources, 

* or when an application calls XtSetValues {) . 


*HHH^H**0**H****H*n*H***n 
static Boolean SetValues (current, 
XeDbdat a Widget current, 
request. 


****************************** 
request, new) 


******* 


*/ 
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caddr_t 

int 

XGCValues 

XtGCMask 

Boolean 

Boolean 

Display 

Window 


“ - elie’nt_data; 
n; 

values ; 

valueMask - GCForeground I GCBackground; 
redraw ■ FALSE; 
warning - FALSE; 

^display - XtDisplay (current) ; 

root - RootWindowOf Screen (Xt Screen (current)); 


* If the timer interval has changed, remove the current callback and 

* add another one with the new interval. 

*/ 

if ( new->dbdata. Interval I- current ->dbdat a . Interval ) 
XtRemoveTimeOut ( current->dbdata . Id ); 
client_data - (caddr_t) new; 

new->dbdata . Id - XtAddTimeOut < new->dbdat a . Interval, check_data, 

client data) ; 


/* 

* Check minimum and maximum. 

*/ 

for ( n - 0; n < new->dbdata .NumValues ; n++ ) { 

if ( new->dbdata .Elements [n] .MinLimit > 

new~>dbdata .Elements [n] .MaxLimit ) { 

new->dbdata .Elements [n] .MinLimit - 0; 
new->dbdata .Elements [n] .MaxLimit - 100; 
warning - TRUE; 

» 

) 

if ( warning ) 

Xt Warning ("Minimum must be less than maximum") ; 

/* 

* If any colors have changed, generate new GCs and set the 

* redraw flag. 

*/ 

if ( new->dbdata .Def Background !- cur rent ->dbdat a. Def Background I I 
new->dbdata.Def Foreground !- cur rent->dbdata .Def Foreground ) { 

values . background ■ new->dbdat a .Def Background; 
values . foreground new->dbdat a .Def Foreground; 

XFreeGC (new, new->dbdata .NomGC) ; 

new->dbdata . NomGC - XCreateGC (display, root, valueMask, &values) ; 
redraw - TRUE; 

) 

if ( new->dbdata.LabBackground !- current ->dbdat a . LabBackground I I 
new->dbdata.LabForeground !* current->dbdata . LabForeground ) { 

values .background - new->dbdat a . LabBackground; 
values . foreground • new->dbdata . LabForeground; 

XFreeGC (new, new->dbdata.LabGC) ; 

new->dbdata . LabGC - XCreateGC (display, root, valueMask, fivalues) ; 
redraw - TRUE; 

> 

return (redraw) ; 

} 

/★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★^★★★★★★★***^********^*************** 

* MODULE NAME: check data 


* This function is an internal timer function used to check the 

* data values for changes. This timer interval can be 

* specified as a resource. 

* 

**★*■**★****★★* ****★**★★**★★**★★**★***★★**★*★ ********************** ********/ 
XtTimerCallbackProc check_data ( client_data, id ) 
caddr t client data; 






Xtlntervalld 
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Xtlntervalld — ^ dataj_id; 

XeDbdat a Widget w; 

w - (XeDbdataWidget) cl±ent_data; 
update_gc (w) ; 

w->dbdata . Id - XtAddTimeOut (w->dbdata . Interval, check data, client data) 
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INTRODUCTION 


1.0 INTRODUCTION 

This report summarizes the results of tests which were conducted to gather basic statistics on 
displaying text using low-level Xlib functions of the X Windows system. In this report is a table 
containing the results of 18 separate tests. The results of these tests are to be compared with the 
results of tests being conducted by Lorie Howard of NASA/JSC. Ms. Howard is conducting similar 
tests using the GKS system instead of X Windows. 

The function of each test was to display 100 cycles of 500 values to an X window using the Xlib 
function XDrawImageString (XDrawString for tests 17 & 18). Performance data was collected 
using the PRM (Process Resource Monitor) application. The focus of the test was to determine 
what effect font size, text formatting, and alternating graphics contexts had on CPU utilization in 
the display of text. 

Following the test results is a key which expands each test name into a more descriptive list of 
attributes describing the characteristics of the test. 


2.0 TEST RESULTS 


# 

Test Name 

User 

Time 

System 

Time 

Total 

Time 

80% CPU Usage 

Milli % of 

Sec Total 

50% CPU Usage 

Milli % of 

Sec Total 

1 

stnofmt9xl5 

2.916 

1.616 

4.532 

34 

1.70 

33 

1.65 

2 

stnfgc9xl5 

2.800 

1.983 

4.783 

34 

1.70 

33 

1.65 

3 

stnfmgc9xl5 

3.033 

1.533 

4.566 

34 

1.70 

33 

1.65 

4 

Stint9xl5 

4.916 

1.216 

6.132 

100 

5.00 

67 

3.35 

5 

stingc9xl5 

5.450 

1.350 

6.800 

116 

5.80 

84 

4.20 

6 

stinmgc9xl5 

5.700 

1.483 

7.183 

116 

5.80 

100 

5.00 

7 

stfloat9xl5 

19.166 

2.266 

21.432 

184 

9.20 

167 

8.35 

8 

stflgc9xl5 

19.116 

2.083 

21.199 

184 

9.20 

167 

8.35 

9 

stflmgc9xl5 

19.866 

1.716 

21.582 

184 

9.20 

167 

8.35 

10 

stnofmt6xl0 

2.366 

1.900 

4.266 

49 

2.45 

33 

1.65 

11 

stfloat6xl0 

20.100 

1.933 

22.033 

233 

11.65 

200 

10.00 

12 

stnofmttmsl6 

2.700 

2.516 

5.216 

50 

2.50 

17 

0.85 

13 

stflmgctmsl6 

20.150 

1.766 

21.916 

200 

10.00 

183 

9.15 

14 

stnofmtuns22 

2.983 

2.016 

4.999 

50 

2.50 

33 

1.65 

15 

stflmgctms22 

20.950 

1.550 

22.500 

200 

10.00 

167 

8.35 

16 

stflmgccs38 

19.600 

2.133 

21.733 

183 

9.15 

149 

7.45 

17 

dmofmt9xl5 

2.733 

1.733 

4.466 

50 

2.50 

33 

1.65 

18 

drflmgc9xl5 

23.150 

2.216 

25.366 

234 

11.70 

217 

10.85 
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Test Name Key: 


Test Name 

X Text Command 

Eonnat 

# graphics context 
Eont switches/cvcle 

stnofmt9xl5 

XDrawImageS tring 

none 

9x15 none 

stnfgc9xl5 

XDrawImageString 

none 

9x15 1 

stnfmgc9xl5 

XDrawImageString 

none 

9x15 100 

stint9x!5 

XDrawImageString 

integer 

9x15 none 

Slingc9xl5 

XDrawImageString 

integer 

9x15 1 

stinmgc9xl5 

XDrawImageString 

integer 

9x15 100 

stfloa(9xl5 

XDrawImageS tring 

float 

9x15 none 

stflgc9xl5 

XDrawImageS tring 

float 

9x15 1 

stflmgc9xl5 

XDrawImageString 

float 

9x15 100 

stnofmt6xl0 

XDrawImageS tring 

none 

6x10 none 

stfioat6x 10 

XDrawImageS tring 

float 

6x10 none 

stnofmttmsl6 

XDrawImageString 

none 

times 16 none 

stflmgctmsl6 

XDrawImageString 

float 

timesl6 100 

stnofmiuns22 

XDrawImageString 

none 

times22 none 

stflmgctms22 

XDrawImageS tring 

float 

times22 100 

stflmgccs38 

XDrawImageString 

float 

cyr-s38 100 

dmofmt9xl5 

XDrawString 

none 

9x15 none 

drflmgc9xl5 

XDrawString 

float 

9x15 100 


3.0 CONCLUSIONS 

The data collected in these tests indicate that for display of individual text strings using the Xlib 
functions XDrawImageString: 

• Alternating graphics contexts has no detectable impact on performance. 

• Text fonts of varying sizes may be displayed without performance degradation. 

• Formatting of text for display using the C function sprintf has a significant negative 
impact on performance, particularly when formatting floating-point values. 

A few similar tests were conducted using X Pixmaps and XCopyArea. However, these tests 
quickly demonstrated a much lower performance, and the test results were not included. 

In addition, it was thought that it might be more efficient to clear the entire window using the Xlib 
function XClearArea, and then use XDrawString to display the text items. However, 
XDrawImageString could not be shown to be less efficient than XDrawString (compare tests 17 & 
18 with tests 1 & 9). 
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4.0 ATTACHMENTS 

The following pages contain the detailed information collected for this performance evaluation. 
This information includes: 

• Makefile - used to build each of the performance measurement programs. 

• Source code - the source code for the performance measurement programs. 

• Analysis results - the output from the Process Resource Monitor (PRM) application, 
which was used as the statistical basis for the performance evaluation. 
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Makefile 


PROGS ~ drflmgc drnofmt pxfloat pxnofmt stflmgc stflgc stfloat \ 
stingc stinmgc stint stnfgc stnfmgc stnofmt 


all: 


$ {PROGS} 



drflmgc: 

cc -o drflmgc drflmgc. c -lXm -lXt -1X11 


drnofmt : 

cc — o drnofmt drnofmt. c — lXm -lXt —1X11 


pxfloat : 

cc -o pxfloat pxfloat. c -lXm -lXt 


-1X11 


pxnofmt : 

cc -o pxnofmt pxnofmt. c -lXm -lXt -1X11 


stflgc: 

cc -o stflgc stflgc. c -lXm -lXt -1X11 


stflmgc : 

cc -o stflmgc stflmgc. c -lXm -lXt -1X11 


stf loat : 

cc -o stf loat stf loat. c -lXm -lXt -1X11 


stingc : 

cc -o stingc stingc. c -lXm -lXt -1X11 
stinmgc: 

cc -o stinmgc stinmgc. c -lXm -lXt -1X11 
stint : 

cc -o stint stint. c -lXm -lXt -1X11 


stnfgc : 

cc -o stnfgc stnfgc. c -lXm -lXt -1X11 
stnfmgc : 

cc -o stnfmgc stnfmgc. c -lXm -lXt -1X11 
stnofmt : 

cc -o stnofmt stnofmt. c -lXm -lXt -1X11 
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drflmgc.c 


/* 

Draw straight to screen using XDrawString 
Multiple graphics context switches/cycle 
%10.5f text formatting 

*/ 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio .h> 
<string.h> 

<X11/ Intrinsic . h> 
<Xll/StringDef s . h> 
<X11 /Cardinals . h> 
<X11/Shell.h> 

<X11 /MwmUtil . h> 
<Xm/Xm.h> 
<Xm/DialogS . h> 
<Xm/DrawingA . h> 
<Xm/MainW. h> 
<Xm/RowColumn . h> 


♦define CYCLES 100 

♦define TIMER VALUE 1000 


♦define ROWS 
♦define COLS 

Display 

Visual 

Pixmap 

GC 

Font 

Window 

XFontStruct 

int 


char 


50 

10 

♦display; 

♦visual; 

pixmap; 

gc [ 5 ] ; 

font; 

window; 

*f ont_info; 

screen; 

ascent, 

width, 

height; 

string [ ] - "1000 • 00001", 
format [10] ; 


int main { argc, argv ) 
int argc; 

char *argv[]; 

{ 


register int 

Widget 

Arg 


i; 

top, m_main, mb_main, 
args [10] ; 


static XtCallbackRec cb[] * { 

{ (XtCallbackProc) NULL, (caddr_t ) NULL }, 
{ (XtCallbackProc ) NULL, (caddrj:) NULL } 


} ; 


mp_f ile. 


scroll. 


draw 





XtCallbackProc 
XColor 
Colormap 
XVisuallnf o 

XSetWindowAt tributes 

XCharStruct 

int 

unsigned long 


drflmgc.c 

cb_expose ( ) ; 
color; 
xcmap; 
v, 

*visual_list ; 

attributes; 

overall; 

visuals_matched; 

mask; 


int 


z; 



/* 

* 

*/ 


/* 

* 

*/ 


Initialize the Toolkit. 

top - Xtlnitialize { argv[0], "Fast", NULL, 0, &argc, argv ); 

Save a pointer to the X Windows display structure. Save the current screen. 


display - XtDisplay ( top ) ; 
screen - DefaultScreen ( display ) ; 

/* 

* Initialize font information. 

*/ 

if ( ( font_info - XLoadQueryFont ( display, argv[l] ) ) =» 0 ) 
exit ( 1 ) ; 

font • font_info->f id; 

/* 

* Save the format to use for printing out of data. 

*/ 


strcpy ( format, argv[2] ); 

/* 

* Initialize size of string to draw. 
*/ 


XTextExtents ( font_info, string, strlen ( string ), fiascent, 
&ascent, fiascent, fioverall ) ; 
width - overall . width; 

height - overall . ascent + overall .descent; 
ascent - overall. ascent; 


/* 

•k 

*/ 



Query the X server to find out if there is the right type of visual. 




drflmgc.c 


v. screen ■ screen; 

v. depth - 8; 

v. class ■ Pseudocolor; 



visual_list - XGetVisuallnf o ( display, 

VisualScreenMask | VisualDepthMask I VisualClassMask, 
&v, &visuals_matched ) ; 



* Copy the required visual and free up memory allocated for by the visual 

* query function. 

*/ 


memcpy ( &visual, fivisual listfO] .visual, sizeof { visual ) ) ; 

XFree ( visual_list ) ; 


/* 

* Create the main window and a menu bar. 
*/ 


XtManageChild ( m_main - XmCreateMa inWindow ( top, "", NULL, 0 ) ); 

XtManageChild ( mb_main - XmCreateMenuBar ( m_main, "", NULL, 0 ) ) ; 


/* 

* Create menu . 
*/ 


mp_file - XmCreatePulldownMenu ( mb_main, "", NULL, 0 ); 
i - 0; 

XtSetArg ( argsti], XmNsubMenuId, mp_file ); i++; 

XtManageChild ( XmCreateCascadeButton ( mb_main, "File", args, i ) ); 
XtManageChild < XmCreatePushButton ( mp_file, "Exit", NULL, 0 ) ) ; 


/* 

* Create a scrolled window widget. 
*/ 


i - 0; 

XtSetArg ( argsti], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( argsti], XmNheight, ROWS* ( height +2) ) ; i++; 
XtManageChild ( scroll - 

XmCreateScrolledWindow ( m main, "scroll", args, i ) ); 


/* 

* Create the drawing area widget. 
*/ 


cb [0] .callback - (XtCallbackProc) cb_expose; 
cb[0] .closure - (caddr_t)0; 

i - 0; 

XtSetArg ( args[i], XmNexposeCallback, cb ); i++; 

XtSetArg ( argsti], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( argsti], XmNheight, ROWS* (height +2) ) ; i++; 

XtManageChild ( draw » 

XmCreateDrawingArea ( scroll, "draw", args, i ) ); 


/* 

* Realize the widgets. 
*/ 


XtRealizeWidget ( top ) ; 





/* 
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* Set the attributes necessary to create the actual window 
*/ 


attributes . save_under 
attributes .backing_store 
attributes . border_pixel 
attributes .background_j>ixel 
attributes .bit_gravity 


- 0 ; 

• NotUseful; 

- BlackPixel ( display, screen ) ; 

* WhitePixel ( display, screen ) ; 
■ NorthWestGravity; 


mask - CWBackingStore I CWSaveUnder | CWBackPixel | 
CWBorderPixel | CWBitGravity; 


/* 

* Create the window for the drawing area widget . 
*/ 


XtCreateWindow ( draw, CopyFromParent, visual, mask, ^attributes ) ; 
window - XtWindow { draw ) ; 

xcmap - DefaultColormap (display, screen); 


/* 

* Create the graphics context. 

*/ 

gc[l] - XCreateGC ( display, window, NULL, NULL ); 

gc(2] - XCreateGC ( display, window, NULL, NULL ); 
color. red * 65000; 
color. blue - 0; 
color. green - 0; 

if (XAllocColor (display, xcmap, ficolor) ) 

XSetBackground (display, gc [2] , color .pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

gc[3] - XCreateGC ( display, window, NULL, NULL ); 
color. red - 0; 
color. blue - 65000; 
color. green - 0; 

if (XAllocColor (display, xcmap, ficolor) ) 

XSetBackground (display, gc[3], color .pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

gc[4] - XCreateGC ( display, window, NULL, NULL ); 
color. red - 0; 
color. blue - 0; 
color. green - 65000; 

if (XAllocColor (display, xcmap, &color) ) 

XSetBackground (display, gc ( 4 ] , color . pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

for (z-1; z<5; z++) 

XSetFont ( display, gc[z], font ); 


/* 

* Create the pixmap. 
*/ 


pixmap - XCreatePixmap ( display, window, COLS* (width +2), ROWS* (height+2) , 

8 ); 
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/* 

* Add a time out. 

*/ 

Xt AddT imeOut ( TIMER_VALUE, cb_expose, NULL >; 


/* 

* Loop forever . 

*/ 

XtMainLoop ( ) ; 

} 


XtCallbackProc cb_expose 
widget widget ; 


widget, closure, calldata ) 

/* set to the widget which initiated this 
* callback function. 

*/ 


{ 


caddr t closure; 


XmDr a wingAreaCa 1 IbackS t ruct 


/* Callback specific data. This parameter 

* indicates the selected function. 

*/ 

*calldata; 

/* Specifies any callback-specific data the 

* widget needs to pass to the client. 

*/ 


register int 

x, y; 

static double 

value * 1000.00001; 

static int 

count-1; 

int 

z; 


/* 

* Update the string. 

*/ 

value +*■ (double) 0 . 00001 ; 


/* 

* Write out the strings. 
*/ 


for ( y - 0; y < ROWS; y++ ) 

for ( x - 0; x < COLS; x++ ) { 
z “ ( (x + y) % 4) + 1; 

sprintf ( string, format, value ); 

XDrawString ( display, window, gc[z], x*(width+2), 

ascent + (y* (height+2) ) , string, strlen ( string ) ); 


/* 

* Flush the buffer immediately. 
*/ 

XFlush ( display ) ; 

/* 

* Test and increment counter 
*/ 
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if (count > CYCLES) 
exit ( 1 ) ; 
count ++; 


/* 

* Reset the timer. 

*/ 

Xt AddT imeOut ( TIMER_VALUE, cb_expose, NULL ) 



dmofmt.c 


Draw straight to screen using XDrawString 
no gc switching 
No text formatting 



♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio .h> 
<string.h> 

<X11/ Intrinsic .h> 
<X11/St ringDef s .h> 
<X11/Cardinals .h> 
<X11/Shell.h> 
<Xll/MwmUtil . h> 
<Xm/Xm. h> 
<Xm/DialogS .h> 
<Xm/DrawingA.h> 
<Xm/MainW.h> 
<Xm/RowColumn . h> 


♦define CYCLES 100 

♦define TIMER VALUE 1000 


♦define ROWS 
♦define COLS 

Display 

Visual 

Pixmap 

GC 

Font 

Window 

XFont Struct 

int 


char 


50 

10 

♦display; 

♦visual ; 

pixmap; 

gc; 

font; 

window; 

*font_inf on- 
screen ; 
ascent, 
width , 
height; 

string [ ] - ”1000 . 00001", 
format [10] ; 


int main ( argc, argv ) 
int argc; 


char *argv[]; 

{ 

register int 

Widget 

Arg 


in- 

tOP, mjmain, mb_main, mp_file, scroll, 
args [10]; 


static XtCallbackRec cb[] - { 

{ (XtCallbackProc) NULL, (caddr_t ) NULL }, 
{ (XtCallbackProc) NULL, (caddr_t ) NULL } 

} ; 



draw; 
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XtCallbackProc 
XColor 
XVisuallnf o 

XSetWindowAttributes 

XCharStruct 

int 

unsigned long 


cb_expose { ) ; 
color; 

V, 

*visual_list ; 
attributes ; 
overall; 

visuals_matched; 

mask; 


Initialize the Toolkit. 

top - Xtlnitialize < argv[0], "Fast", NULL, 0, Sargc, argv ); 


Save a pointer to the X Windows display structure. Save the current screen 

display - XtDisplay ( top ) ; 
screen - DefaultScreen ( display ) ; 

Initialize font information. 

if ( ( font_info - XLoadQueryFont ( display, argv[l] ) ) — o ) 
exit ( 1 ) ; 

font — font_inf o->f id; 


Save the format to use for printing out of data, 
strcpy { format, argv[2] ); 

Initialize size of string to draw. 


XTextExtents ( font_info, string, strlen { string ), iascent, 
Sascent, fiascent, fioverall ) ; 
width - overall .width ; 

height - overall . ascent + overall .descent ; 
ascent - overall .ascent; 


Query the X server to find out if there is the right type of visual. 

v. screen - screen; 

v . depth - 8 ; 

v. class « Pseudocolor; 

visual_list - XGetVisuallnfo ( display, 

VisualScreenMask | VisualDepthMask | VisualClassMask, 
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&v, &visuals_matched ) ; 


* Copy the required visual and free up memory allocated for by the visual 

* query function. 

*/ 


memcpy ( Svisual, &visual_list [0] . visual, sizeof { visual ) ); 

XFree ( visual_list ) ; 


/* 

* Create the main window and a menu bar. 

*/ 

XtManageChild ( m__main - XmCreateMa inWindow ( top, NULL, 0 ) ); 

XtManageChild ( mb_main - XmCreateMenuBar { m_main, f,ff , NULL, 0 ) ) ; 

/* 

* Create menu . 

*/ 


mp_file - XmCreatePulldownMenu ( mb_main, NULL, 0 ); 

i - 0; 

XtSetArg ( args[i], XmNsubMenuId, mp_file ); i++; 

XtManageChild ( XmCreateCascadeButton ( mbjnain, "File", args, i ) )/ 
XtManageChild ( XmCreatePushButton ( mp_file, "Exit", NULL, 0 ) ) ; 


/* 

* Create a scrolled window widget. 
*/ 


i - 0; 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( args[i], XmNheight, ROWS* (height+2) ) ; i++; 
XtManageChild ( scroll * 

XmCreateScrolledWindow ( m main, "scroll", args, i ) ) ; 


/* 

* Create the drawing area widget. 
*/ 


cb[0] .callback - (XtCallbackProc) cb_expose; 
cb [0] . closure - (caddr_ t)0; 

i - 0; 

XtSetArg ( args[i], XmNexposeCallback, cb ); i++; 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( args[i], XmNheight, ROWS* (height+2) ) ; i++; 

XtManageChild ( draw - 

XmCreateDrawingArea ( scroll, "draw", args, i ) ) ; 


/* 

* Realize the widgets. 
*/ 


XtRealizeWidget ( top ) ; 


/* 

* Set the attributes necessary to create the actual window. 
*/ 

attributes . save_under - 0; 

attributes ,backing_store - NotUseful; 




attributes . border_pixel 
attributes .background^ pixel 
attributes .bit_gravity 
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BlackPixel ( displays screen ) ; 
WhitePixel ( display, screen ) ; 
NorthWestGravity; 


mask - CWBackingStore I CWSaveUnder | CWBackPixel | 
CWBorderPixel | CWBitGravity ; 


/* 

* Create the window for the drawing area widget. 
*/ 


XtCreateWindow ( draw, CopyFromParent , visual, mask, ^attributes ) ; 
window - XtWindow ( draw ) ; 


/* 

* Create the graphics context . 
*/ 


gc - XCreateGC ( display, window, NULL, NULL ) ; 

XSetFont ( display, gc, font ) ; 

/* 

* Create the pixmap used to retain a copy of the image for refreshing 

* the window. 

*/ 

pixmap - XCreatePixmap ( display, window, COLS* (width +2), ROWS* (height +2) , 

a ) ; 

/* 

* Add a time out. 

*/ 

Xt AddT imeOut ( TIMER_VALUE, cb_expose, NULL ); 

/* 

* Loop forever. 

*/ 

XtMainLoop ( ) ; 

} 


XtCallbackProc cb_expose ( widget, closure, calldata ) 


Widget widget; /* Set to the widget which initiated this 

* callback function. 

*/ 

caddr__t closure; /* Callback specific data. This parameter 

* indicates the selected function. 

*/ 

XmDrawingAreaCallbackStruct *calldata; 

/* Specifies any callback-specific data the 

* widget needs to pass to the client . 

*/ 

{ 

register int x, y; 

static double value - 1000.00001; 

static int count-1; 
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/* 

* Update the string. 

*/ 

value +“ (double ) 0 . 00 0 0 1 ; 



/* 

* Write out the strings. 
*/ 


for ( y - 0; y < ROWS; y++ ) 

for ( x - 0; x < COLS; x++ ) { , . . 

XDrawString ( display, window, gc, x* (width+Z) , , . . 

ascent + (y* (height+2) ) , string, strlen ( string ) ) 

} 


* Flush the buffer immediately . 
*/ 


XFlush ( display ) ; 


/* 

* Test and increment counter 
*/ 


if (count > CYCLES) 
exit ( 1) ; 
count ++; 


/* 

* Reset the timer. 

*/ 

XtAddTimeOut ( TIMER_VALUE, cb_expose, NULL ) ; 

) 



pxfloat.c 

/* 

Pixmap/XCopyArea 

No graphics context switching 

%10.5f text formatting 

*/ 

♦include <stdio.h> 

♦include <string.h> 

♦include <X11/Intrinsic . h> 

♦include <Xll/StringDefs .h> 

♦include <X11/Cardinals ,h> 

♦include <X11/Shell .h> 

♦include <Xll/MwmUtil.h> 

♦include <Xm/Xm.h> 

♦include <Xm/DialogS .h> 

♦include <Xm/DrawingA.h> 

♦include <Xm/MainW.h> 

♦include <Xm/RowColumn . h> 



♦define 

CYCLES 

100 

♦define 

TIMER_VALUE 

1000 

♦define 

ROWS 

50 

♦define 

COLS 

10 

Display 


♦display; 

Visual 


♦visual; 

Pixmap 


pixmap; 

GC 


gc; 

Font 


font ; 

Window 


window; 

XFontStruct 

♦font_inf on- 

int 


screen; 
ascent, 
width, 
height ; 

char 


string [] - 
format [10] ; 

int main 

( argc, argv ) 

int 

argc; 


char 

*argv [ ] ; 



{ 

register int 


1000.00001", 


Widget 


top, m_main, mb_main, mp_file, scroll, draw 


Arg 


args [10] ; 


static XtCallbackRec cb[] - { 

{ (XtCallbackProc) NULL, (caddr_t ) NULL }, 
{ (XtCallbackProc) NULL, (caddr__t ) NULL ) 



XtCallbackProc 
XColor 
XVisuallnf o 

XSetWindowAt tributes 

XCharStruct 

int 

unsigned long 


pxfloat.c 

cb_expose () / 

color; 

v, 

*visual_list ; 
attributes ; 
overall; 

v i s u a 1 s_tua t ched ; 
mask; 


/* 

* Initialize the Toolkit. 

*/ 

top - Xtlnitialize ( argvtO], "Fast", NULL, 0, Sargc, argv ); 

/ * Save a pointer to the X Windows display structure. Save the current screen 
*/ 

display - XtDisplay ( top ) ; 
screen - DefaultScreen ( display ) ; 


/* 

* Initialize font information. 

*/ 

if ( ( font_info - XLoadQue ryF ont ( display, argv[l] ) ) -- 0 ) 
exit < 1 ) ; 

font - font info->fid; 


* Save the format to use for printing out of data. 
*/ 


strcpy ( format, argv [2] ) ; 


/* 

* Initialize size of string to draw. 
*/ 


XTextExtents < font_info, string, strlen ( string ) , iascent, 
fiascent, fiascent, fioverall ); 
width ” overall .width; 

height - overall. ascent + overall .descent; 
ascent — overall .ascent; 


/ * , 

* Query the X server to find out if there is the right type of visual 

*/ 


v. screen * screen; 

v. depth - 8; 

v. class * Pseudocolor; 

visual list - XGetVisuallnf o ( display, 

— VisualScreenMask I VisualDepthMask I VisualClassMask, 
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3 


&v, &vi3ual3_matched ) ; 



/* 

Copy the required visual and free up memory allocated for by the visual 

* query function. 

*/ 

memcpy ( Svisual, Svisual_list [0] .visual, sizeof ( visual ) )• 

XFree ( visual_list ) ; 

/* 

* Create the main window and a menu bar. 

*/ 

XtManageChild ( m_main « XmCreateMainWindow ( top, NULL, 0 ) ) ; 
XtManageChild ( mb_main ™ XmCreateMenuBar ( m_main, NULL, 0 ) ) ; 

/* 

* Create menu. 

*/ 

rop.file - XmCreatePulldownMenu ( mb_main, — , NULL, 0 ) ; 
i - 0; 

XtSetArg ( args[i], XmNsubMenuId, mp_file ); i++; 

XtManageChild ( XmCreateCascadeButton ( mb_main, "File", args, i ) ) ; 
XtManageChild ( XmCreatePushButton ( mp_file, "Exit"! null! 0 ) ) • 

/* 

* Create a scrolled window widget . 

*/ 

i - 0; 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)),- i++; 

XtSetArg ( args[i], XmNheight, ROWS* (height+2) ) ; i++; 

XtManageChild ( scroll - 

XmCreateScrolledWindow ( m_main, "scroll", args, i ) ) ; 

/* 

* Create the drawing area widget . 

*/ 

cb[0] .callback « (XtCallbackProc) cb_expose; 
cb[0] .closure - (caddr_t)0; ~ 

i - 0; 

XtSetArg ( argsfi], XmNexposeCallback, cb ) ; i++. 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)); i++) 

XtSetArg ( argsfi], XmNheight, ROWS* (height+2) ) ; i++; 

XtManageChild ( draw — 

XmCreateDrawingArea ( scroll, "draw", args, i ) ); 

/* 

* Realize the widgets . 

*/ 

XtRealizeWidget ( top ) ; 

/* 

* Set the attributes necessary to create the actual window. 

*/ 

attributes . save_under - 0 ; 

attributes .backing_store - Not Useful; 




attributes .border __pixel 
attributes .background jpixel 
attributes ,bit_gravity 
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BlackPixel ( display, screen ) ; 
WhitePixel ( display, screen ) ; 
NorthWestGravity; 


mask - CWBackingStore I CWSaveUnder I CWBackPixel I 
CWBorderPixel I CWBitGravity; 


/* f 

* Create the window for the drawing area widget . 

*/ 

XtCreateWindow ( draw, CopyFromParent, visual, mask, ^attributes ); 
window - XtWindow ( draw ) ; 

/* 

* Create the graphics context. 

*/ 

g C . xCreateGC ( display, window, NULL, NULL ) ; 

XSetFont ( display, gc, font ) ; 

/* 

* Create the pixmap. 

*/ 

pixmap - XCreatePixmap ( display, window, COLS* (width +2), ROWS* ( height +2) , 

8 ) ; 


/* 

* Add a t ime out . 

*/ 

XtAddTimeOut ( T IMER_VALUE , cb_expose, NULL ) ; 

/* 

* Loop forever. 

*/ 

XtMainLoop ( ) ; 

} 


XtCallbackProc cb_expose ( widget, closure, calldata ) 

Widget widget; /* Set to the widget which initiated this 

* callback function. 

*/ 


{ 


caddr t closure; /* Callback specific data. This parameter 

* indicates the selected function. 

*/ 

XmDrawingAreaCallbackStruct *calldata; 

/* Specifies any callback-specific data the 

* widget needs to pass to the client. 

*/ 

register int x, y; 


static double 


value — 1000.00001; 


static int 


count“l 
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* Update the string. 

*/ 

value +- (double) 0 . 00001; 

/* 

* Write out the strings. 

*/ 



for ( y - 0; y < ROWS; y++ ) 

for ( x - 0; x < COLS; x++ ) { 

sprintf ( string, format, value ); 

XD rawimagestring ( display, pixmap, gc, x*(width+2), 

ascent + (y* (height +2) ) , 
string, strlen ( string ) ) ; 

XCopyArea ( display, pixmap, window, gc, 0, 0, 

COLS* (width +2), ROWS* (height+2) , 0, 0 ); 


/* 

* Flush the buffer immediately. 
*/ 


XFlush ( display ) ; 

/* 

* Test and increment counter 
*/ 

if (count > CYCLES) 
exit (1) ; 
count ++; 


/* 

* Reset the timer. 

*/ 

Xt AddT imeOut ( TIMER_VALUE, cb_expose, NULL ) ; 


} 




/* 

Pixmap/XCopyArea 
No graphics context 
No text formatting 



switching 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


Cstdio .h> 

<string .h> 
<X11/Intrinsic.h> 
<Xll/StringDef s . h> 
<X11/Cardinals .h> 
<X11/Shell . h> 
<Xll/MwmUtil . h> 
<Xm/Xm.h> 
<Xm/DialogS . h> 
<Xm/DrawingA . h> 
<Xm/MainW. h> 
<Xm/RowColumn . h> 


pxnofmt.c 


♦define CYCLES 100 

♦define TIMER_VALUE 1000 
♦define ROWS 50 

♦define COLS 10 


Display 

Visual 

Pixmap 

GC 

Font 

Window 

XFontStruct 


*display; 

^visual; 

pixmap; 

gc; 

font ; 

window; 

*font info; 


int 


char 


screen; 
ascent , 
width, 
height; 

string [ ] - "1000 . 00001", 
format [10] ; 


int main { argc, argv ) 
int argc; 

char *argv[]; 

{ 


register int 

Widget 

Arg 


i; 

top, m_main, mb_main, 
args [10] ; 


static XtCallbackRec cb[] - { 

{ (XtCallbackProc) NULL, (caddr_t ) NULL ), 
{ (XtCallbackProc) NULL, ( caddr__t ) NULL ) 


) ; 


rrqp_f ile. 


scroll, draw; 




XtCallbackProc 
XColor 
XVisuallnf o 

XSetWindowAt tributes 

XCharStruct 

int 

unsigned long 
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cb_expose ( ) ; 
color; 

v, 

*visual__list ; 

attributes; 

overall; 

visuals_matched; 

mask; 


/* 

* Initialize the Toolkit. 
*/ 


top - Xtlnitialize ( argv[0], "Fast", NULL, 0, &argc, argv ); 



/* 

* Save a pointer to the X Windows display structure. Save the current screen. 
*/ 


display « XtDisplay { top ) ; 
screen - DefaultScreen ( display ) ; 

/* 

* Initialize font information. 

*/ 

if ( ( font_info - XLoadQueryFont ( display, argv[l] ) ) 0 ) 

exit ( 1 ) ; 

font - font_info->f id; 

/* 

* Save the format to use for printing out of data. 

*/ 

strcpy { format, argv[2] ); 

/* 

* Initialize size of string to draw. 

*/ 


XText Extents ( font_info, string, strlen ( string ), iascent, 
fiascent, nascent, Coverall ); 
width - overall. width; 

height - overall .ascent + overall. descent; 
ascent ■ overall. ascent; 


/* 

* Query the X server to find out if there is the right type of visual. 
*/ 


v. screen - screen; 

v. depth - 8; 

v. class - Pseudocolor; 


visual_list - XGetVisuallnf o ( display, 

VisualScreenMask | VisualDepthMask | VisualClassMask, 
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sv, svisuals_matched ) ; 


copy the roquirod vi»u.l .nd free up memory allocated for by the vlaual 
query function. 

/ 

tnemcpy ( eelau.l, eviaual.liat [0] .vlaual, alzeof C vlaual ) >; 

XFree ( visual_list ) ; 


Create the main window and a menu bar 

/ 


XtManageChild 

XtManageChild 


( m main - XmCreateMainWindow ( top, 

( mb_main - XmCreateMenuBar ( m_main. 


NULL, 0 ) ) ; 

, NULL, 0 ) ) ; 


* Create menu . 

*/ 

mp_file - XmCreatePulldownMenu ( mb_main, NULL, 0 ); 


i 0 / 

xtSetAra ( args[i], XmNaubMenuId, mp_file ); i++; 
XtManageChild < XroCreateCascadeButton ( mb_main, 
XtManageChild ( XinCreatePushButton ( mp_fiie. 


"File", 

"Exit", 


args, 

NULL, 


i ) 
0 ) 


) ; 
) ; 


* Create a scrolled window widget . 
*/ 


i - 0; 

XtSetArg ( args[i], XmNwidth, 
XtSetArg ( argsti], XmNheight, 
XtManageChild ( scroll - 

XmCreateScrolledWindow 


COLS* (width +2)); i++; 
ROWS* (height+2) ) ; i++; 


( m mam. 


"scroll", args, i ) ) 


* Create the drawing area widget. 
*/ 


cb[0] .callback - (XtCallbackProc) cb_expose; 
cb[0] .closure “ (caddr_t)0? 


i “ 0 ; 

XtSetArg ( args[i], XmNexposeCallback, 
XtSetArg ( args[i], XmNwidth, 

XtSetArg ( args[i], XmNheight, 
XtManageChild ( draw - 

XmCreateDrawingArea ( scroll. 


cb ) : i++; 
COLS* (width +2)); i++; 
ROWS* (height+2) ) ; i++; 

"draw", args, i ) ) ; 


/* 

* Realize the widgets. 

*/ 

XtRealizeWidget ( top ) ; 

/ * set the attributes necessary to create the actual window 
*/ 

attributes .save_under " 0; 

attributes .backing_store ” NotUseful; 
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attributes. border_pixel - BlackPixel ( display, screen ); 
attributes. background_pixel - WhitePixel ( display, screen ); 
attributes .bit_gravity - NorthWestGravity; 

mask - CWBackingStore I CWSaveUnder | CWBackPixel | 
CWBorderPixel | CWBitGravity; 



/* 

* Create the window for the drawing area widget 
*/ 


XtCreateWindow ( draw, CopyFromParent, visual, mask, ^attributes ); 
window - XtWindow ( draw ) ; 


/* 

* Create the graphics context . 
*/ 


gc - XCreateGC ( display, window, NULL, NULL ) ; 

XSetFont ( display, gc, font ) ; 

/* 

I Create the pixmap used to retain a copy of the image for refreshing 

* the window. 

*/ 

pixmap - XCreatePixmap < display, window, COLS* (width +2), ROWS* (height+2) , 

8 ) ; 

/* 

* Add a time out . 

*/ 

Xt AddT imeOut ( TIMER_VALUE, cb_expose, NULL ) ; 

/* 

* Loop forever. 

*/ 

XtMainLoop ( ) ; 

} 


XtCallbackProc cb_expose ( widget, closure, calldata ) 

Widget widget; /* set to the widget which initiated this 

* callback function. 

*/ 


{ 


caddr_t closure; 


XmDrawingAreaCallbackStruct 


/* Callback specific data. This parameter 

* indicates the selected function. 

V 

♦calldata; 

/* Specifies any callback-specific data the 

♦ widget needs to pass to the client. 

V 


register int x, y; 


static double 


value - 1000.00001; 


static int 


count-1 



pxnofmt.c 


Update the string. 

/ 


value +■ (double) 0 . 00001; 


Write out the strings . 

/ 


for 


( y - 0; y < ROWS; y++ 
for ( x - 0; x < COLS; 

XDrawImageString ( 


) 

x++ ) { 

display, pixmap, gc, x* 
ascent + (y* (height +2) ) 
string, strlen ( string 


) 


XCopyArea ( display, pixmap, 
COLS* (width +2), 


window, gc, 0, 0, 
ROWS* (height+2) , 0, 


0 


★ Flush the buffer immediately. 
*/ 


XFlush ( display ) ; 


★ Test and increment counter 
*/ 


if (count > CYCLES) 
exit (1) ; 
count ++; 


/* 

* Reset the timer. 

*/ 

XtAddTimeOut ( TIM£R_VALUE, cb_expose, NULL ) ; 


(width+2) 
') ); 

) ; 



stflgc.c 


straight to screen using XDrawlmageString 
1 graphics context switch/cycle 
%10.5f text formatting 



/* 

Draw 


♦include <stdio.h> 

♦include <string.h> 

♦include <X11/Intrinsic.h> 
♦include <Xll/StringDef 3 .h> 
♦include <X11/Cardinals . h> 
♦include <X11/Shell.h> 
♦include <Xll/MwmUtil.h> 
♦include <X*n/Xm.h> 

♦include <Xm/DialogS .h> 
♦include <Xm/DrawingA.h> 
♦include <Xm/MainW.h> 
♦include <Xm/RowColumn .h> 


♦define 

CYCLES 

100 

♦define 

T IME REVALUE 

1000 

♦define 

ROWS 

50 

♦define 

COLS 

10 

Display 


♦display; 

Visual 


♦visual; 

Pixmap 


pixmap; 

GC 


gc[5]; 

Font 


font ; 

Window 


window; 

XFontStruct 

♦font_inf on- 

int 


screen; 

ascent, 

width, 

height; 

char 


string!] » 
format [10] ; 

int main 

( argc, argv ) 

int 

argc; 


char 

*argv[] ; 



register int 

Widget 

Arg 


i; 

top f m_main, mb_main, mp__file, scroll, drai 
args [10] ; 


static XtCallbackRec cb[] - { 

{ (XtCallbackProc) NULL, (caddr_t ) NULL } , 
{ (XtCallbackProc) NULL, (caddr t ) NULL } 

}; 




XtCallbackProc 
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XColor 
Colormap 
XVisuallnf o 


XSetWindowAttributes 

XCharStruct 

int 

unsigned long 


int 


/* 

* Initialize the Toolkit. 

*/ 

top « Xtlnitialize ( argv[0], "Fast", NULL, 0, &argc, argv ); 

/* 

* Save a pointer to the X Windows display structure. Save the current screen. 
*/ 

display - XtDisplay ( top ) ; 
screen - DefaultScreen ( display ) ; 

/* 

* Initialize font information. 

*/ 

if ( ( font_ info - XLoadQueryFont ( display, argv[l] ) ) “ 0 ) 
exit ( 1 ) ; 

font » font_info->f id; 

/* 

* Save the format to use for printing out of data. 

*/ 

strcpy ( format, argv[2] ); 

/* 

* Initialize size of string to draw. 

*/ 

XTextExtents ( font_info, string, strlen ( string ), fiascent, 

&ascent, fiascent, &overall ); 
width - overall .width; 

height » overall . ascent + overall .descent ; 
ascent - overall .ascent; 

/* 

* 

*/ 


cb_ expose () ; 
color; 
xcmap; 
v, 

*visual_li3t ; 

attributes; 

overall; 

visuals_matched; 

mask; 


Query the X server to find out if there is the right type of visual. 




stflgc.c 


v. screen * screen; 

v . depth - 8 ; 

v. class - Pseudocolor; 

visual_list - XGetVisuallnf o ( display, 

VisualScreenMask | VisualDepthMask | VisualClassMask, 
&v, &visuals_matched ) ; 



/* 

* Copy the required visual and free up memory allocated for by the visual 

* query function. 

*/ 


memcpy ( fivisual, &visual_list [0] .visual, sizeof ( visual ) ); 
XFree { visual list ) ; 


/* 

* Create the main window and a menu bar. 
*/ 


XtManageChild { m_main - XmCreateMainWindow ( top, "", NULL, 0 ) ) ; 
XtManageChild { mb_main - XmCreateMenuBar ( m_main, NULL, 0 ) ) ; 


/* 

* Create menu. 
*/ 


mp_f ile - XmCreatePulldownMenu ( mb_main, "", NULL, 0 ); 
i » 0; 

XtSetArg ( args[i], XmNsubMenuId, mp^file ); i++; 

XtManageChild ( XmCreateCascadeButton ( mb_main, "File", args, i ) ) ; 
XtManageChild ( XmCreatePushButton ( mp_file, "Exit", NULL, 0 ) ); 


/* 

* Create a scrolled window widget . 
*/ 


i - 0; 

XtSetArg ( arga[i], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( args[i], XmNheight, ROWS* (height +2) ) ; i++; 
XtManageChild ( scroll - 

XmCreateScrolledWindow ( m_main, "scroll", args, i ) ); 


/* 

* Create the drawing area widget . 
*/ 


cb(0] .callback * (XtCallbackProc) cb_expose; 
cb[0] .closure * (caddr_t)0; 

i - 0; 

XtSetArg ( argsfi], XmNexposeCallback, cb ); i++ 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)); i++ 

XtSetArg ( args[i], XmNheight, ROWS* ( height +2) ) ; i++ 

XtManageChild ( draw - 

XmCreateDrawingArea ( scroll, "draw", args, i ) ); 


/* 

* Realize the widgets . 
*/ 


XtRealizeWidget ( top ) ; 





/* 

* Set the attributes necessary 
*/ 

attributes . save_under 

attributes .backing store 

attributes .border_pixel 

attributes .background_pixel 

attributes .bit_gravity 


stflgc.c 


to create the actual window. 


- 0 ; 

- NotUseful; 

- BlackPixel < display, screen ) ; 

- WhitePixel ( display, screen ) ; 

- NorthWestGravity; 


mask - CWBackingStore I CWSaveUnder I CWBackPixel I 
CWBorderPixel I CWBitGravity; 


/* 

* Create the window for the drawing area widget. 

*/ 

XtCreateWindow ( draw, CopyFromParent, visual, mask, ^attributes ) 
window - XtWindow ( draw ) ; 

xcmap ■ Def aultColormap (display, screen); 


/* 

* Create the graphics context. 

*/ 

g C [1] - XCreateGC ( display, window, NULL, NULL ); 

gc(2] - XCreateGC ( display, window, NULL, NULL ); 
color. red “ 65000; 
color. blue ■ 0; 
color. green * 0; 

if (XAllocColor (display, xcmap, ficolor) ) 

XSetBackground (display, gc[2], color .pixel) ; 

else 

fprintf (stderr, "couldn't allocate color ); 

gc [3] - XCreateGC ( display, window, NULL, NULL ); 
color. red * 0; 
color. blue ■ 65000; 
color. green * 0; 

if (XAllocColor (display, xcmap, ficolor) ) 

XSetBackground (display, gc[3], color. pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

gc [4] - XCreateGC ( display, window, NULL, NULL ); 
color. red * 0; 
color. blue - 0; 
color. green ■ 65000; 

if (XAllocColor (display, xcmap, ficolor) ) 

XSetBackground (display, gc[4], color .pixel) ; 

el3e 

fprintf (stderr, "couldn't allocate color ); 

for (z*l; z<5; z++) 

XSetFont ( display, gc[z], font ); 


^ * Create the pixmap used to retain a copy of the image for refreshing 
* the window. 

V 


pixmap - XCreatePixmap ( display, window, COLS* (width +2), ROWS* (height +2) 



8 ) ; 
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/* 

* Add a time out . 

*/ 

Xt AddT imeOut ( TIMER_VALUE, cb_expose, NULL ) ; 

/* 

* Loop forever. 

*/ 

XtMainLoop ( ) ; 

} 


XtCallbackProc cb_expose ( widget, closure, calldata ) 

Widget widget; /* Set to the widget which initiated this 

* callback function. 

*/ 


caddr_t closure; /* Callback specific data. This parameter 

* indicates the selected function. 

*/ 

XmDrawingAreaCallbackStruct *calldata; 

/* Specifies any callback-specific data the 

* widget needs to pass to the client . 

*/ 

{ 

register int x, y; 

static double value - 1000.00001; 


static int 


count-1 ; 


int 


z; 


/* 

* Update the string. 
*/ 


value +- (double) 0 . 00001; 

/* 

* Determine which gc to use 

V 


z - (count % 4) + 1; 


/* 

* Write out the strings. 
*/ 


for ( y - 0; y < ROWS; y++ ) 

for ( x - 0; x < COLS; x++ ) { 

sprintf ( string, format, value ) ; 

XDrawImageString ( display, window, gc[z], x*(width+2), ascent + (y* (height+2) 

string, strlen ( string ) ) ; 


/* 

* Flush the buffer immediately. 



XFlush ( display ) ; 
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/* 

* Test and increment counter 
*/ 

if (count > CYCLES) 
exit (1) ; 
count ++; 


/* 

* Reset the timer. 

*/ 

XtAddTimeOut ( TIMER_VALUE, cb_expose, NULL ) 

) 
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/* 

Draw straight to screen using XDrawImageString 
Multiple graphics context switches /cycle 
%10.5f text formatting 

♦/ 



♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio.h> 

<string.h> 

<X11/ Intrinsic . h> 
<Xll/StringDef 3 .h> 
<X11/Cardinals .h> 
<X11/Shell.h> 
<Xll/MwmUtil.h> 
<Xm/Xm.h> 
<Xm/DialogS .h> 
<Xm/DrawingA . h> 
<Xm/MainW.h> 
<Xm/RowColumn . h> 


♦define CYCLES 100 

♦define TIMER_VALUE 1000 
♦define ROWS 50 

♦define COLS 10 


Display 

Visual 

Pixmap 

GC 

Font 

Window 


♦display; 

♦visual; 

pixmap; 

gc[5]; 

font; 

window; 


XFontStruct 


♦font info; 


int 


char 


screen; 

ascent, 

width, 

height; 

string [] - ”1000 . 00001”, 
format [10] ; 


int main ( arge, argv ) 
int arge; 

char ♦argvf]; 

{ 

register int i; 

Widget top, m_main, mb_main, mp_file, scroll, draw; 

Arg args [10] ; 


static XtCallbackRec cb[] - ( 

{ (XtCallbackProc) NULL, (caddr_t ) NULL }, 
{ (XtCallbackProc) NULL, (caddr t ) NULL ) 

}; 
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XtCallbackProc 

XColor 

Colormap 

XVisuallnfo 


XSetWindowAttributes 

XCharStruct 

int 

unsigned long 



cb_expose 0 ; 
color; 
xcmap ; 
v, 

*visual_list ; 
attributes; 
overall ; 

visuals_matched; 

mask; 


int 


★ Initialize the Toolkit. 

*/ 

top - Xtlnitialize ( argv[0], "Fast", NULL, 0, large, argv ); 

'* Save a pointer to the X Windows display structure. Save the current screen 
*/ 

display - XtDisplay ( top ) ; 
screen m DefaultScreen ( display ) < 

/* 

* Initialize font information. 

*/ 

if ( ( font_info - XLoadQueryFont ( display, argv[l] ) ) — 0 ) 

exit { 1 ) ; 

font “ f ont — info->f id; 

/★ 

* Save the format to use for printing out of data. 

*/ 

strcpy ( format, argv[2] ); 

/* 

* Initialize size of string to draw. 

*/ 

XText Extents < font_info, string, strlen ( string ), iascent, 

Sascent, tascent, fioverall ) ; 

width ” overall .width; 

height ” overall. ascent + overall .descent ; 
ascent - overall . ascent; 

/* 

* 

*/ 


Query the X server to find out 


if there is the right type of visual. 
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v. screen » screen; 

v. depth - 8; 

v. class - Pseudocolor; 

visual_list - XGetVisuallnf o ( display, 

VisualScreenMask | VisualDepthMask | visualClassMask, 
sv, Svisuals_matched ) ; 



/* 

* Copy the required visual and free up memory allocated for by the visual 

* query function. 

*/ 


memcpy ( Svisual, &visual_list [0] .visual, sizeof ( visual ) )• 
XFree ( visual_list ) ; 


/* 

* Create the main window and a menu bar. 
*/ 


XtManageChild ( m_main ■ XmCreateMainWindow ( top, NULL, 0 ) ) ; 
XtManageCh i 1 d ( mb_main • XmCreateMenuBar ( m_main, NULL, 0 ) ) ; 

/* 

* Create menu . 

*/ 


“ XmCreatePulldownMenu ( mb_main, NULL,. 0 ) ; 

i - 0; 

XtSetArg ( args[i], XmNsubMenuId, mp_file ); i++; 

XtManageChild ( XmCreateCascadeButton ( mb main, "File", args i ) ) • 
XtManageChild ( XmCreatePushButton ( mp_file, "Exit", NULL^ 0 ) ) ; 

/* 

* Create a scrolled window widget . 

*/ 


i - 0; 

XtSetArg ( argsfi], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( args(i], XmNheight, ROWS* ( height +2) ) ; i++; 
XtManageChild ( scroll - 

XmCreateScrolledWindow ( m_main, "scroll", args, i ) ); 


/* 

* 

*/ 


Create the drawing area widget . 


cb[0] .callback - (XtCallbackProc) cb_expose; 
cb(0] .closure - (caddr_t)0; 

i - 0; 

XtSetArg ( args[i], XmNexposeCallback, cb )• i++. 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( argsfi], XmNheight, ROWS* ( height +2) ) ; i++; 

XtManageChild ( draw * 

XmCreateDrawingArea ( scroll, "draw", args, i ) ) ; 


* Realize the widgets . 
*/ 


XtRealizeWidget ( top ) ; 
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Set the attributes necessary to create the actual window 


attributes . save_under 
attributes .backing_store 
attributes .border _pixel 
attributes .background_pixel 
attributes .bit_gravity 

magic - cWBackingStore I CWSaveUnder I CWBackPixel I 
CWBorderPixel I CWBitGravity; 


- 0 ; 

- NotUseful; 

- BlackPixel ( display, screen ) ; 

- WhitePixel < display, screen ) ; 
» NorthWestGravity; 


Create the window for the drawing area widget. 

XtCreateWindow < draw, CopyFromParent, visual, mask, sattributes ) ; 
window - XtWindow ( draw ) ; 

xcmap - DefaultColormap (display, screen); 


Create the graphics context. 

gc[l] - XCreateGC ( display, window, NULL, NULL ); 

gc[2] - XCreateGC ( display, window, NULL, NULL ); 
color. red • 65000; 
color. blue - 0; 
color. green - 0; 

if (XAllocColor (display, xcmap, Stcolor) ) 

XSetBackground (display, gc[2], color. pixel) ; 

else 

fprintf (stderr , "couldn't allocate color"); 

gc [3] - XCreateGC ( display, window, NULL, NULL ); 
color . red ■ 0 ; 
color. blue * 65000; 
color. green - 0; 

if (XAllocColor (display, xcmap, ficolor) ) 

XSetBackground (display, gc[3], color .pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

gc[4] - XCreateGC ( display, window, NULL, NULL ); 
color. red -0; 
color. blue * 0; 
color. green - 65000; 

if (XAllocColor (display, xcmap, &color) ) 

XSetBackground (display, gc[4], color. pixel) ; 

else 

fprintf (stderr, "couldn't allocate color") ; 

for (z«l; z<5; z++) 

XSetFont ( display, gc[z], font ); 


Create the pixmap used to retain a copy of the image for refreshing 
the window. 

pixmap - XCreateP ixmap ( display, window, COLS* (width +2), ROWS* (height +2) 
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8 ) ; 


/* 

* Add a time out. 

*/ 

XtAddTimeOut ( TIMER_VALUE, cb_expose, NULL ) ; 

/* 

* Loop forever. 

*/ 

XtMainLoop ( ) ; 

} 


XtCallbackProc cb_expose ( widget, closure, calldata ) 

Widget widget; /* Set to the widget which initiated this 

* callback function. 

*/ 


caddr_t closure; /* Callback specific data. This parameter 

* indicates the selected function. 

*/ 

XmDrawingAreaCallbackStruct *calldata; 

/* Specifies any callback-specific data the 

* widget needs to pass to the client. 

*/ 

{ 

register int x f y; 

static double value * 1000.00001; 


static int 


count*l; 


int 


z ; 


/* 

* Update the string. 
*/ 


value +- (double) 0 . 00001; 

/* 

* Write out the strings. 

*/ 


for ( y - 0; y < ROWS; y++ ) 

for { x - 0; x < COLS; x++ ) { 
z - ((x + y) % 4) + 1 ; 
sprint f ( string, format, value ) ; 

XD rawImageString ( display, window, gc[z], x*<width+2), 

ascent + <y* (height +2) ) , string, strlen ( string ) ); 


/* 

* Flush the buffer immediately. 
*/ 


XFlush ( display ) ; 


/* 

* Test and increment counter 



■Jl 
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EH 

*/ 

if i 

(count > CYCLES) 
exit ( 1) ; 




count++; 

/* 

* Reset the timer. 

*/ 

Xt AddT imeOut ( TIMER_VALUE , cb_expose, NULL ); 

) 
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Draw straight to screen using XDrawImageString 
No graphics context switching 
%10.5f text formatting 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio.h> 

<string.h> 

<X11/ Intrinsic . h> 
<Xll/StringDef s .h> 
<X11/Cardinals .h> 
<X11/Shell.h> 
<Xll/MwmUtil.h> 
<Xm/Xm.h> 
<Xm/DialogS .h> 
<Xm/Dra wingA . h> 
<Xm/MainW.h> 
<Xm/RowColuinn . h> 


♦define 

♦define 

♦define 

♦define 

CYCLES 
T IME REVALUE 
ROWS 
COLS 

100 

1000 

50 

10 

Display 


♦display; 

Visual 


♦visual; 

Pixmap 


pixmap; 

GC 


gc; 

Font 


font; 

Window 


window; 

XFontStruct 

*font_info; 

int 


screen; 

ascent, 

width, 

height; 

char 


string!] • 
format [10] ; 

int main 

< argc, argv ) 

int 

argc; 


char 

*argv[] ; 



register int 

Widget 

Arg 


1; 


top, m_jnain, mb_jnain, mp_file, scroll, 
args [10] ; 


static XtCallbackRec cb[] - { 

{ (XtCallbackProc) NULL, <caddr_t ) NULL }, 
{ (XtCallbackProc ) NULL, (caddr_t ) NULL } 

) ; 


draw 
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XtCallbackProc 
XColor 
XVisuallnf o 

XSetWindowAt tributes 
XCharStruct 
int 

unsigned long 
Initialize the Toolkit. 

top - Xtlnitialize ( argv[0], "Fast", NULL, 0, iargc, argv >; 

Save a pointer to the X Windows display structure. Save the current screen 

display - XtDisplay ( top ) ; 
screen - Def aultScreen ( display ) ; 

Initialize font information. 

if ( ( font_info * XLoadQueryFont ( display, argv[l] ) ) — 0 ) 

exit ( 1 ) ; 

font - font_inf o->f id; 

Save the format to use for printing out of data, 
strcpy ( format, argv[2] ); 

Initialize size of string to draw. 

XTextExtents ( font_info, string, strlen ( string ), fiascent, 
fiascent, fiascent, fioverall ) ; 
width - overall .width; 

height - overall .ascent + overall .descent ; 
ascent ■ overall .ascent; 

Query the X server to find out if there is the right type of visual. 

v. screen » screen; 

v . depth * 8 ; 

v. class * Pseudocolor; 

visual list - XGetVisuallnf o { display, 

VisualScreenMask | VisualDepthMask I VisualClassMask, 


cb_expose ( ) ; 

color; 

v, 

*visual_list ; 

attributes; 

overall; 

visuals__matched; 

mask; 
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&v, &visuals_matched ) ; 


Copy the required visual and free up memory allocated for by the visual 
query function. 


memcpy ( &visual, &visual_list [0] .visual, sizeof ( visual ) ); 
XFree ( visual_list ) ; 


Create the main window and a menu bar. 


XtManageChild ( mj main - XmCreateMainWindow ( top, "", NULL, 0 ) ) ; 
XtManageChild ( mb_main - XmCreateMenuBar { m_main, NULL, 0 ) ) ; 


Create menu. 


mp_file ■ XmCreatePulldownMenu ( mb_main, NULL, 0 ) ; 

i - 0; 

XtSetArg ( argsfi], XmNsubMenuId, mp_file ); i++; 

XtManageChild ( XmCreateCascadeButton { mb_main, "File", args, i ) ) ; 
XtManageChild ( XmCreatePushButton ( mp_file, "Exit", NULL, 0 ) ) ; 


Create a scrolled window widget. 


i - 0; 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( args[i], XmNheight, ROWS* (height +2) ) ; i++; 
XtManageChild ( scroll - 

XmCreateScrolledWindow ( m_main, "scroll", args, i ) ) ; 


Create the drawing area widget . 


cb [0] .callback - (XtCallbackProc) cb_expose; 
cb[0] .closure - (caddr_t)0; 

i - 0; 

XtSetArg ( args[i], XmNexposeCallback, cb ); i++; 

XtSetArg ( argsfi], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( argsfi], XmNheight, ROWS* ( height +2) ) ; i++; 

XtManageChild ( draw - 

XmCreateDrawingArea ( scroll, "draw", args, i ) ) ; 


Realize the widgets . 


XtRealizeWidget ( top ) ; 


Set the attributes necessary to create the actual window. 


attributes . save_under - 0; 

attributes .backing__store - NotUseful; 



attributes ,border_pixel 

attributes .background_pixel 

attributes .bit_gravity 
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BlackPixel ( display, screen ) ; 
WhitePixel ( display, screen ) ; 
NorthWestGravity; 


mask “ CWBackingStore I CWSaveUnder I CWBackPixel I 
CWBorderPixel I CWBitGravity; 


* Create the window for the drawing area widget . 

*/ 

XtCreateWindow ( draw, CopyFromParent, visual, mask, Sattributes ) 
window - XtWindow ( draw ) ; 


/* 

* Create the graphics context . 

*/ 

gc - XCreateGC ( display, window, NULL, NULL ) ; 
XSetFont ( display, gc, font ) ; 


* Create the pixmap used to retain a copy of the image for refreshing 

* the window . 

*/ 

pixmap - XCreatePixmap ( display, window, COLS* (width +2), ROWS* (height+2) , 

8 ) ; 


/* 

* Add a time out . 

*/ 

XtAddTimeOut ( TIMER_VALUE, cb_expose, NULL ) ; 

/* 

* Loop forever. 

*/ 

XtMainLoop ( ) ? 

} 


XtCallbackProc cb_expose ( widget, closure, calldata ) 

Widget widget; /* Set to the widget which initiated this 

* callback function. 

*/ 


{ 


caddr t closure; 


XmDrawingAreaCallbackStruct 


/* Callback specific data. This parameter 

* indicates the selected function. 

*/ 

*calldata; 

/* Specifies any callback-specific data the 

* widget needs to pass to the client. 

V 


register int 
static double 
static int 


x, y; 

value * 1000.00001; 
count-1; 




/* 

* Update the string. 
*/ 
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value +- (double) 0.00001; 


/* 

* Write out the strings. 
*/ 


for 


( y 

for 


) 


- 0; y < ROWS; y++ ) 

( x - 0; x < COLS; x++ ) { 

sprintf ( string, format, value ) ; 

XDrawImageString ( display, window, gc, x*(width+2), 

string, strlen ( string ) ) ; 


ascent + 


/* 

* Flush the buffer immediately. 
*/ 

XFlush ( display ) ; 

/* 

* Test and increment counter 

V 


if (count > CYCLES) 
exit ( 1 ) ; 


count ++; 


/* 

* Reset the timer. 
*/ 


XtAddTimeOut ( TIMER_VALUE, cb expose, NULL ) ; 

) 


(y* (height+2) ) , 



Draw straight to screen 
1 gc switch/cycle 
integer formatting 


*/ 


stingcx 


using XD rawimagestring 


♦include <stdio.h> 

♦include <string.h> 

♦include <X11/ Intrinsic . h> 
♦include <Xll/StringDef s .h> 
♦include <X11/Cardinals .h> 
♦include <X1 1/ Shell .h> 
♦include <Xll/MwmUtil .h> 
♦include <Xm/Xm.h> 

♦include <Xm/DialogS .h> 
♦include <Xm/DrawingA.h> 
♦include <Xm/MainW.h> 
♦include <Xm/RowColumn * h> 


♦define CYCLES 100 

♦define T I ME REVALUE 1000 
♦define ROWS 
♦define COLS 


Display 

Visual 

Pixmap 

GC 

Font 

Window 

XFontStruct 

int 

char 


50 
10 

♦display; 

♦visual; 

pixmap; 

gc [ 5 ] ; 

font; 

window; 

♦f ont_inf o; 

screen; 

ascent, 

widths 

height; 

string [ ] - "1000 . 00001", 
format [10] ; 


int main ( argc f argv ) 
int argc; 

char *argv [ ] ; 

{ 

register int 

Widget 

Arg 


i; 


top, m_main, mb_main r mp_file r scroll/ 
args [10] ; 


static XtCallbackRec cb[] - { 

{ (XtCallbackP roc) NULL, ( caddr_t ) NULL )/ 
{ (XtCallbackProc) NULL, <caddr_t) NULL } 

) ; 


draw; 




XtCallbackProc 


XColor 
Colormap 
XVisuallnf o 

XSetWindowAt tributes 

XCharStruct 

int 

unsigned long 
int 
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cb_expose () ; 
color; 
xcmap; 
v, 

*visual_list ; 

attributes; 

overall; 

visuals_matched; 

mask; 

z; 


/* 

* Initialize the Toolkit. 
*/ 


top - Xtlnitialize ( argv[0], "Fast", NULL, 0, iargc, argv ); 

/* 

* Save a pointer to the X Windows display structure. Save the current screen 
*/ 


display - XtDisplay { top ) ; 
screen - Def aultScreen { display ) ; 


/* 

* Initialize font information. 
*/ 


if ( ( font_info - XLoadQueryFont ( display, argv[l] ) ) 
exit { 1 ) ; 

font - font_inf o->f id; 


/* 

* 

*/ 


Save the format to use for printing out of data. 


0 ) 


strcpy ( format, argv[2] ); 


/* 

* Initialize size of string to draw. 
*/ 


XTextExtents ( font_info, string, strlen ( string ) , fiascent, 
fiascent, Sascent, Soverall ) ; 
width - overall .width; 

height - overall . ascent + overall .descent ; 
ascent - overall . ascent; 


/* 

Query the X server to find out if there is the right type of visual. 

* / 




v. screen 


v .depth 


v. class 


screen; 

8 ; 

Pseudocolor; 
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visual list 


XGetVisuallnf o ( display, § . 

VisualScreenMask | VisualDepthMask I VisualClassMask, 
&v, &visuals — matched ) ; 


* Copy the required visual and free up memory allocated for by the visual 

* query function. 

*/ 

memcpy ( fivisual, Svisual_list [0] .visual, sizeof ( visual ) >; 

XFree ( visual_list ) ; 


* Create the main window and a menu bar. 
*/ 


XtManageChild ( m_main 1 
XtManageChild < mb_main 


XmCreateMainWindow ( top, "", NULL, 0 ) 

■ XmCreateMenuBar { m_main, "", NULL, 0 ) 



/* 

* Create menu. 

*/ 

mp file - XmCreatePulldownMenu ( mb_main, "", NULL, 0 ); 


i - 0; 

XtSetArg ( args[i], XmNsubMenuId, mp_file )« i++; 
XtManageChild ( XmCreateCascadeButton ( mb_main, "File", args, 
XtManageChild ( XmCreatePushButton ( mp_file, "Exit", NULL, 


i ) 

0 ) 


) ; 
) ; 


* Create a scrolled window widget . 
*/ 


i - 0; 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)); i++> 

XtSetArg ( args[i], XmNheight, ROWS* (height +2) ) ; i++# 
XtManageChild ( scroll - , 

XmCreateScrolledWindow ( m_main, "scroll”, args, i ) ) ; 


* Create the drawing area widget. 

*/ 

cb[0] .callback - (XtCallbackProc) cb_expose; 
cb[0] .closure - (caddr_t)0; 


i - 0; 

XtSetArg ( args[i], XmNexposeCallback, 
XtSetArg ( args[i], XmNwidth, 

XtSetArg ( args[i], XmNheight, 
XtManageChild ( draw - 

XmCreateDrawingArea ( scroll. 


cb ) ; i++'* 
COLS* (width +2) ) ; i++; 
ROWS* (height +2) ) ; i++; 

"draw”, args, i ) ) ; 


/* 

* Realize the widgets. 
*/ 


XtRealizeWidget ( top ) ; 
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/* 

* Set the attributes necessary to create the actual window 
*/ 




attributes . save — under 
attributes .backing_store 
attributes . border j>ixel 
attributes .background__pixel 
attributes .bit_gravity 

mask - CWBackingStore I CWSaveUnder | CWBackPixel | 
CWBorderPixel I CWBitGravity; 


- 0 ; 

- NotUseful; 

* BlackPixel ( display, screen ) ; 

- WhitePixel ( display, screen ) ; 
■ NorthWestGravity; 


/* 

* Create the window for the drawing area widget. 
*/ 


XtCreateWindow ( draw, CopyFromParent , visual, mask, Sattributes ); 
window - XtWindow ( draw ) ; 

xcmap - DefaultColormap (display, screen); 


/* 

* Create the graphics context. 
*/ 


gc[l] - XCreateGC ( display, window, NULL, NULL ); 

gc [2] - XCreateGC ( display, window, NULL, NULL ); 
color. red - 65000; 
color. blue - 0; 
color. green - 0; 

if (XAllocColor (display, xcmap, ficolor) ) 

XSetBackground (display, gc[2], color. pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

gc[3] - XCreateGC ( display, window, NULL, NULL ); 
color. red - 0; 
color. blue - 65000; 
color. green * 0; 

if (XAllocColor (display, xcmap, Scolor) ) 

XSetBackground (display, gc[3] , color. pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

gc[4] - XCreateGC ( display, window, NULL, NULL ); 
color. red - 0; 
color. blue - 0; 
color. green • 65000; 

if (XAllocColor (display, xcmap, ficolor) ) 

XSetBackground (display, gc[4], color .pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

for (z-1; z<5; z++) 

XSetFont ( display, gc[z], font ); 


/* 

* Create the pixmap used to retain a copy of the image for refreshing 

* the window. 

*/ 


pixmap - XCreatePixmap ( display, window, COLS* (width +2), ROWS* (height +2) , 



8 ) ; 


/* 

* Add a time out . 

*/ 

XtAddTimeOut ( T IMER_VALUE , cb_expose, NULL ) ; 

/* 

* Loop forever. 

*/ 

XtMainLoop ( ) ; 

} 


XtCallbackProc cb_expose 
Widget widget ; 


widget, closure, calldata ) 

/* Set to the widget which initiated this 
* callback function. 

*/ 


{ 


caddr t closure; 


XmDrawingAreaCallbackStruct 


/* Callback specific data. This parameter 

* indicates the selected function. 

*/ 

*calldata; 

/* Specifies any callback-specific data the 

* widget needs to pass to the client. 

*/ 


register int 

x, y; 

static long 

value » 1000; 

static int 

count- 1 ; 

int 

z; 


/* 

* Update the string. 
*/ 

value +“ 1 ; 


/* 

* Determine which gc to use 
*/ 


z - (count % 4) + 1; 


/* 

* Write out the strings. 
*/ 


for ( y - 0; y < ROWS; y++ ) 

for ( x - 0; x < COLS; x++ ) { 

sprintf ( string, format, value ) ; 

XDrawImageString ( display, window, gc[z], x*(width+2), 

ascent + (y* (height+2) ) , 
string, strlen ( string ) ) ; 


/* 

* Flush the buffer immediately. 


XFlush ( display ) 
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/* 

* Test and increment counter 
*/ 

if (count > CYCLES) 
exit ( 1 ) ; 
count++; 


/* 

* Reset the timer. 

*/ 

XtAddTimeOut ( TIMER_VALUE, cb_expose, NULL ) 

> 
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Draw straight to screen using XD rawImageString 
multiple gc switches/cycle 
integer formatting 


♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio ,h> 

<string . h> 

<X11/ Intrinsic . h> 
<Xll/StringDefs .h> 
<X11 /Cardinals . h> 
<X11/Shell.h> 
<Xll/MwmUtil.h> 
<Xm/Xm.h> 
<Xm/DialogS . h> 
<Xm/DrawingA . h> 
<Xm/MainW. h> 
<Xm/RowColumn . h> 


♦define CYCLES 100 

♦define TIME REVALUE 1000 
♦define ROWS 50 

♦define COLS 10 


Display 

Visual 

Pixmap 

GC 

Font 

Window 

XFontStruct 


♦display; 

♦visual; 

pixmap; 

gc [ 5 ] ; 

font; 

window; 

♦font info; 


int screen; 

ascent, 

width, 

height; 

char string!] - "1000 . 00001", 

format [10] ; 


int main ( argc, argv ) 
int argc; 

char ♦argvf]; 

{ 


register int 

Widget 

Arg 


i; 

top, m_main, mb_main, 
args [10]; 


static XtCallbackRec cb[] - t 

{ (XtCallbackProc) NULL, (caddr_t ) NULL }, 
{ (XtCallbackProc) NULL, (caddr_t ) NULL } 


mp_ f ile. 


scroll. 


draw; 


); 



XtCallbackProc 

XColor 

Colormap 

XVisuallnfo 

XSetWindowAttributes 

XCharStruct 

int 

unsigned long 
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cb_expose { ) ; 
color; 
xcmap; 
v, 

*visual_list ; 

attributes; 

overall; 

vi s ua 1 s_ma t c hed ; 
mask; 


int 


z; 



/* 

* Initialize the Toolkit. 

*/ 

top - Xtlnitialize ( argv[0], "Fast", NULL, 0, fiargc, argv ); 

/* 

* Save a pointer to the X Windows display structure. Save the current screen 
*/ 

display - XtDisplay ( top ) ; 
screen - Def aultScreen ( display ) ; 

/* 

* Initialize font information. 

*/ 

if ( { font_info * XLoadQueryFont ( display, argv[l] ) ) o ) 
exit ( 1 ) ; 

font - font_info->f id; 

/* 

* Save the format to use for printing out of data. 

*/ 

strcpy ( format, argv[2] ); 

/* 

* Initialize size of string to draw. 

*/ 

XTextExtents ( font_info, string, strlen ( string ), sascent, 
fiascent, Nascent, Coverall ) ; 
width - overall. width; 

height - overall . ascent + overall .descent ; 
ascent - overall . ascent ; 

/* 

* Query the X server to find out if there is the right type of visual. 

*/ 
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v. screen ■ screen; 

v . depth * 8 ; 

v. class “ Pseudocolor; 


visual list 


XGetVisuallnfo ( display, , 

VisualScreenMask | VisualDepthMask I VisualClassMask, 


Sv, &visuals_matched ) ? 


* Copy the required visual and free up memory allocated for by the visual 

* query function. 

*/ 


memcpy ( Svisual, &visual_list [0] .visual, sizeof ( visual ) ); 
XFree ( visual_list ) ; 


* Create the main window and a menu bar. 

*/ 

XtManageCh i Id ( m_main - XmCreateMainWindow ( top, ”, NULL 0 ) ); 

XtManageChild ( mb_main - XmCreateMenuBar ( m_main, , NULL, 0 


/* 

* Create menu . 

*/ 

mp file - XmCreatePulldownMenu ( mb_main, NULL,. 0 ) ? 

i - 0; 

XtSetArg ( args[i], XmNsubMenuId, mp_file ); r++; . . 

XtManageChild ( XmCreateCascadeButton ( mb_main, "File , args, x ) ) > 
XtManageChild ( XmCreatePushButton ( mp_file, "Exit", NULL, 0 ) ) ; 


/* 

* Create a scrolled window widget. 
*/ 


i * 0 ; 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)); r++; 

XtSetArg ( args[i], XmNheight, ROWS* (height+2) ) ; i++; 
XtManageChild ( scroll - 

XmCreateScrolledWindow ( m_main, "scroll", args, i ) ) , 


/* 

* Create the drawing area widget . 
*/ 


cb[0] .callback - (XtCallbackProc) cb_expose; 
cb[0] .closure - <caddr_t)0; 

i - 0; . 

XtSetArg ( args[i], XmNexposeCallback, cb ); 

XtSetArg ( args(i], XmNwidth, COLS* (width +2)); r++ 

XtSetArg ( args[i], XmNheight, ROWS* (height+2) ) ; i++ 

XtManageChild ( draw - 

XmCreateDrawingArea ( scroll, "draw", args, i ) ) ; 


/* 

* Realize the widgets. 
*/ 


XtRealizeWidget ( top ) ; 
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/* 

* Set the attributes necessary to create the actual window 
*/ 


attributes . save_under 
attributes .backing_store 
attributes .border jpixel 
attributes .background_pixel 
attributes .bit_gravity 


- 0 ; 

* NotUseful; 

* BlackPixel ( display, screen ) ; 

* WhitePixel { display, screen ) ; 
- NorthWestGravity; 


mask - CWBackingStore I CWSaveUnder | CWBackPixel | 
CWBorderPixel | CWBitGravity; 


/* 

* Create the window for the drawing area widget. 
*/ 


XtCreateWindow ( draw, CopyFromParent , visual, mask, ^attributes ); 
window - XtWindow ( draw ) ; 

xcmap « DefaultColormap (display, screen); 


/* 

* Create the graphics context . 

V 


gc[l] - XCreateGC ( display, window, NULL, NULL ); 

gc[2] - XCreateGC ( display, window, NULL, NULL ); 
color. red - 65000; 
color. blue - 0; 
color. green - 0; 

if (XAllocColor (display, xcmap, ficolor) ) 

XSetBackground (display, gc[2], color .pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

gc[3] - XCreateGC ( display, window, NULL, NULL ); 
color. red - 0; 
color. blue - 65000; 
color. green - 0; 

if (XAllocColor (display, xcmap, &color) ) 

XSetBackground (display, gc[3], color. pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

gc[4] - XCreateGC ( display, window, NULL, NULL ); 
color. red - 0; 
color. blue - 0; 
color. green - 65000; 

if (XAllocColor (display, xcmap, ficolor) ) 

XSetBackground (display, gc[4], color .pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

for (z-l; z<5; z++) 

XSetFont ( display, gc[z], font ); 


/* 

* Create the pixmap used to retain a copy of the image for refreshing 

* the window. 

*/ 


pixmap - XCreatePixmap ( display, window, COLS* (width +2), ROWS* (height +2) , 
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8 >; 


/* 

* Add a time out. 

*/ 

XtAddTimeOut ( TIMER_VALUE, cb_expose, NULL >; 


/* 

* Loop forever. 

*/ 

XtMainLoop ( ) ; 

) 


XtCallbackProc cb_expose 
Widget widget ; 


widget, closure, calldata ) 

/* set to the widget which initiated this 
* callback function. 

*/ 


{ 


caddr t closure; 


XmDrawingAreaCallbackStruct 


/* Callback specific data. This parameter 

* indicates the selected function. 

*/ 

*calldata; 

/* Specifies any callback-specific data the 

* widget needs to pass to the client . 

*/ 


register int 

x, y; 

static long 

value ■ 1000; 

static int 

count»l; 

int 

z ; 


/* 

* Update the string. 
*/ 


value +• 1; 


/* 

* Write out the strings. 
*/ 


for ( y ■ 0; y < ROWS; y++ ) 

for ( x - 0; x < COLS; x++ ) { 
z - < (x + y) % 4) + 1* 
sprintf ( string, format, value ); 

XDrawImageString ( display, window, gc[z], x (width ), 

ascent + (y* (height+2) ) , string, strlen ( string ) ), 


* Flush the buffer immediately. 
*/ 


XFlush ( display ) ; 


/* 

* Test and increment counter 




stinmgc.c 


if (count > CYCLES) 
exit (1) ; 
count ++; 


/* 

* Reset the timer. 
*/ 


Xt AddT imeOut ( T IMER_VALUE , cb expose, NULL ) ; 

} 
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/* 

Draw straight to screen using XDrawImageStnng 

no gc switches 

integer text formatting 

*/ 

♦include <stdio.h> 

♦include <string.h> 

♦include <X11/ Intrinsic .h> 

♦include <Xll/StringDefs .h> 

♦include <X11/Cardinals .h> 

♦include <X11/Shell ,h> 

♦include <Xll/MwmUtil .h> 

♦include <Xm/Xm.h> 

♦include <Xm/DialogS .h> 

♦include <Xm/DrawingA.h> 

♦include <Xm/MainW.h> 

♦include <Xm/RowColumn.h> 



♦define 

CYCLES 

100 

♦define 

TIMER_VALUE 

1000 

♦define 

ROWS 

50 

♦define 

COLS 

10 

Display 


♦display; 

Visual 


♦visual; 

Pixmap 


pixmap; 

GC 


gc; 

Font 


font; 

Window 


window; 

XFont Struct 

♦font_inf on- 

int 


screen; 
ascent, 
width, 
height ; 

char 


string [] - 
format [10] ; 


1000 . 00001 ", 


int main ( argc, argv ) 
int argc; 

char *argv [ ] ; 

( 

register int 

Widget 

Arg 


i; 

top, m_main, mb_main, 
args [10] ; 


static XtCallbackRec cb[] - ( 

( (XtCallbackProc) NULL, (caddr_t) NULL }, 
[ (XtCallbackProc) NULL, (caddr_t) NULL ) 

) ; 


mp_f ile. 


scroll. 


draw 




XtCallbackProc 

XColor 

XVisuallnfo 

XSetWindowAtt ributea 

XCharStruct 

int 

unsigned long 
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cb_expoae { ) ; 

color; 

v, 

*visual_liat ; 

attributes; 

overall; 

visuals_matched; 

mask; 


/* 

* Initialize the Toolkit. 
*/ 



top - Xtlnitialize ( argv[0], "Fast", NULL, 0, iargc, argv ); 

/* 

* Save a pointer to the X Windows display structure. Save the current screen 
*/ 

display - XtDisplay ( top ) ; 
screen - DefaultScreen ( display ) ; 

/* 

* Initialize font information. 

*/ 

if ( ( font_info - XLoadQueryFont ( display, argv[l] ) ) — o ) 
exit < 1 ) ; 

font - font_inf o->f id; 


/* 

* 

*/ 


Save the format to use for printing out of data. 


strcpy ( format, argv[2] ); 

/* 

* Initialize size of string to draw. 
*/ 


XTextExtents ( font_info, string, strlen ( string ) , nascent, 
iascent, iascent, fioverall ) ; 
width - overall. width; 

height - overall .ascent + overall. descent; 
ascent - overall. ascent; 


/* 

* Q uer y the x server to find out if there is the right type of visual. 

* / 


v. screen - screen; 

v. depth - 8; 

v. class - Pseudocolor; 

visual_list - XGetVisuallnfo ( display, 

VisualScreenMask | VisualDepthMask | VisualClassMask, 
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&v, &visuals_matched ) ; 


7 * Copy the required visual and free up memory allocated for by the visual 
* query function. 

*/ 

memcpy ( fivisual/ &visual_list [0] .visual, sizeof ( visual ) ), 

XFree ( visual_list ) ; 


* Create the main window and a menu bar. 
*/ 


XtManageChild ( m_main - XmCreateMainWindow ( top, NULL, 0 ) ) ; 

XtManageChild ( mb_main _ XmCreateMenuBar ( m_main, NULL, 0 ) ) , 


/* 

* Create menu. 
*/ 


mp file ~ XmCreatePulldownMenu ( mb_main, "", NULL, 0 ) ; 
i - 0; 

XtSetArg ( args[i], XmNsubMenuId, mp_file ); i++; 

XtManageChild ( XmCreateCascadeButton ( mb_main, "File", args, i ) ); 
XtManageChild ( XmCreatePushButton ( mp_file, "Exit", NULL, 0 ) ) ; 


/* 

* Create a scrolled window widget . 
*/ 


i - 0; 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( args[i], XmNheight, ROWS* (height +2) ) ; i++; 
XtManageChild ( scroll - 

XmCreateScrolledWindow ( m_main r "scroll"/ args f x ) ) ; 


/* 

* Create the drawing area widget. 
*/ 


cb(0] .callback - (XtCallbackProc) cb_expose; 
cb [0] . closure ■ (caddr_t)0; 

i - 0; 

XtSetArg ( args[i], XmNexposeCallback, cb ); 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( argsli], XmNheight/ ROWS* (height +2) ) ; i++; 

XtManageChild ( draw - 

XmCreateDrawingArea ( scroll/ "draw"/ args, i ) ) ; 


/* 

* Realize the widgets. 

*/ 

XtRealizeWidget ( top ) ; 


* Set the attributes necessary to create the actual window. 
*/ 

attributes . save^under ■ 0 ; 

attributes .back ingest ore ■ NotUseful; 
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attributes .border_pixel - BlackPixel ( display, screen ); 
attributes .background_j?ixel - WhitePixel ( display, screen ); 
attributes .bit_gravity - NorthWestGravity; 

mask - CWBackingStore I CWSaveUnder | CWBackPixel | 
CWBorderPixel j CWBitGravity; 




/* 

* Create the window for the drawing area widget. 
*/ 


XtCreateWindow ( draw, CopyFromParent , visual, mask, ^attributes ) ; 
window - XtWindow ( draw ) ; 


/* 

* Create the graphics context. 
*/ 


gc - XCreateGC ( display, window, NULL, NULL ) ; 

XSetFont ( display, gc, font ) ; 

/* 

* Create the pixmap used to retain a copy of the image for refreshing 

* the window. 

*/ 

pixmap - XCreatePixmap ( display, window, COLS* (width +2), ROWS* ( height +2 ) , 

8 ); 

/* 

* Add a time out . 

*/ 

XtAddTimeOut ( T I ME REVALUE , cb_expose, NULL ) ; 

/* 

* Loop forever. 

*/ 

XtMainLoop ( ) ; 

} 


XtCallbackProc cb_expose < widget, closure, calldata ) 

Widget widget; /* Set to the widget which initiated this 

* callback function. 

*/ 

caddrj; closure; /* Callback specific data. This parameter 

* indicates the selected function. 

*/ 

XmDrawingAreaCallbackSt ruct *calldata; 

/* Specifies any callback-specific data the 

* widget needs to pass to the client. 

*/ 

{ 

register int x, y; 

static long value - 1000; 


static int 


count*l 
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value +“ 


1 ; 


/* 

* Write out the strings . 
*/ 


for ( y - 0; y < ROWS; y++ ) 

for ( x - 0; x < COLS; x++ ) { 

sprintf ( string, format, value ); 

XDrawImageString ( display, window, gc, x (width 2), 

ascent + (y* (height+2) ) , 
string, strlen ( string ) ) ; 


* Flush the buffer immediately. 
*/ 


XFlush ( display ) ; 


/* 

* Test and increment counter 
*/ 

if (count > CYCLES) 
exit ( 1 ) ; 
count ++; 


/* 

* Reset the timer. 
*/ 


Xt AddT imeOut ( TIMER_VALUE, cb_expose, NULL ) ; 

} 
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/♦ 

Draw straight to screen using XDrawImageString 
1 gc switch/cycle 
no text formatting 

*/ 



♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio .h> 
<string.h> 
<X11/Intrinsic ,h> 
<X11/St ringDefs . h> 
<X11 /Cardinals .h> 
<X11/Shell.h> 
<Xll/MwmUtil.h> 
<Xm/Xm.h> 
<Xm/DialogS . h> 
<Xm/DrawingA . h> 
<Xm/MainW.h> 
<Xm/RowColumn . h> 


♦define 

♦define 

♦define 

♦define 

CYCLES 

TIMER_VALUE 

ROWS 

COLS 

100 

1000 

50 

10 

Display 


♦display; 

Visual 


♦visual; 

Pixmap 


pixmap; 

GC 


gc [5] ; 

Font 


font; 

Window 


window; 

XFontStruct 

*font_info; 

int 


screen; 
ascent, 
width, 
height ; 

char 


string[] ■ 
format [10] ; 

int main 

( argc, argv ) 

int 

argc; 


char 

*argv(] ; 



register int 

Widget 

Arg 


1; 


top, mjnain, mbjmain, mp_file, scroll, draw; 
args [10] ; 


static XtCallbackRec cb[] - { 

{ (XtCallbackProc) NULL, (caddr_t ) NULL }, 
{ (XtCallbackProc) NULL, (caddr t ) NULL } 

}; 






XtCallbackProc 


XColor 

Colormap 

XVisuallnfo 

XSetWindowAttributes 

XCharStruct 

int 

unsigned long 
int 
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cb__expose ( ) ; 

color; 

xcmap; 

V, 

*visual — list ; 
attributes ; 
overall; 

visuals_matched; 

mask; 

z; 


Initialize the Toolkit. 

top - Xtinitialize ( argv[0], "Fast", NULL, 0, large, argv ); 

Save a pointer to the X Windows display structure. Save the current screen 

display - XtDisplay ( top ) ; 
screen - DefaultScreen ( display ) ; 

Initialize font information. 

/ 

if ( ( font_info - XLoadQueryFont ( display, argv(l] ) ) — 0 ) 

exit ( 1 ) ; 

font - font_inf o->f id; 

Save the format to use for printing out of data. 

/ 

strcpy ( format, argv [2] ); 

Initialize size of string to draw. 

/ 

XText Extents ( font_info, string, strlen {string ), fiascent, 

&ascent, fiascent, ^overall ) ; 

width - overall. width; 

height - overall . ascent + overall .descent ; 
ascent - overall. ascent ; 

, Query the X server to find out if there is the right type of visual. 

'/ 





stnfgc.c 


v . screen - screen; 

v. depth - 8; 

v. class - Pseudocolor; 

visual_list - XGet Visual Info ( display, 

VisualScreenMask | VisualDepthMask | VisualClassMask, 
&visuala_matched ) ; 


/* 

* 


★ 

*/ 


Copy the required visual 
query function. 


and free up memory allocated for by the visual 


memcpy ( ^visual, fivisual_list [0] .visual, sizeof ( visual ) )• 
XFree ( visual_list ) ; 


/* 

* Create the main window and a menu bar 
*/ 


XtManageChild ( m_main - XmCreateMainWindow { top, NULL 0 ) ) • 
XtManageCh i Id ( mb_main - XmCreateMenuBar ( m_main, "", NULL, 0 ) ); 

/* 

* Create menu. 

*/ 


” XmCreatePulldownMenu ( mb_main, "", NULL, 0 ) ; 


i - 0; 

XtSetArg ( args[i], XmNsubMenuId, mp_file ); i++ ; 
XtManageChild ( XmCreateCascadeButton ( mb main, "File" 
XtManageChild ( XmCreatePushButton ( mp~file, "Exit"| 


/* 

* 

*/ 


Create a scrolled window widget . 


args, i ) ) ; 
NULL, 0 ) ) ; 


i - 0; 

XtSetArg ( args[i], XmNwidth, COLS* (width +2>); i++; 
XtSetArg ( args[i], XmNheight, ROWS* (height+2) ) ; i++- 
XtManageChild ( scroll - ' 

XmCreateScrolledWindow ( m_main, "scroll", args. 


/* 

* 

*/ 


Create the drawing area widget . 


) ; 


cb 10] .callback - (XtCallbackProc) cb expose; 
cb(0] .closure - (caddr t)0; 


i - 0; 

XtSetArg ( args(i], XmNexposeCallback, 
XtSetArg ( args[i], XmNwidth, 

XtSetArg ( args[i], XmNheight, 
XtManageChild ( draw ■> 

XmCreateDrawingArea ( scroll, 


) ; i++ 

COLS* (width +2)); i++ 
ROWS* (height+2) ) ; i++, 

"draw", args, i ) ) ; 


/* 

* Realize the widgets . 
*/ 


XtRealizeWidget ( top ) ; 
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Set the attributes necessary to create the actual window 


attributes . save_under 
attributes .backing_store 
attributes .border _pixel 
attributes .backgroundjpixel 
attributes .bit_gravity 


- 0 ; 

« NotUseful; 

- BlackPixel ( display, screen ) ; 

- whitePixel ( display, screen ) ; 

- NorthWestGravity; 


mask - CWBackingStore I CWSaveUnder I CWBackPixel I 
CWBorderPixel I CWBitGravity; 


Create the window for the drawing area widget. 

XtCreateWindow ( draw, CopyFromParent, visual, mask, ^attributes ) 
window - XtWindow ( draw ) ; 

xcmap - DefaultColormap (display, screen); 


Create the graphics context. 

gc[l] - XCreateGC ( display, window, NULL, NULL ); 

gc [2] - XCreateGC < display, window, NULL, NULL ); 
color. red * 65000; 
color. blue * 0; 
color. green - 0; 

if (XAllocColor (display, xcmap, &color) ) 

XSetBackground (display, gc[2], color .pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

gc[3] * XCreateGC ( display, window, NULL, NULL ); 
color. red - 0; 
color. blue * 65000; 
color. green - 0; 

if (XAllocColor (display, xcmap, fccolor) ) 

XSetBackground (display, gc [3] , color .pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

gc ( 4] - XCreateGC ( display, window, NULL, NULL ); 
color. red * 0; 
color. blue * 0; 
color. green - 65000; 

if (XAllocColor (display, xcmap, &color) ) 

XSetBackground (display, gc[4], color. pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

for (z~l; z<5; z++) 

XSetFont ( display, gc[z], font ); 


Create the pixmap used to retain a copy of the image for refreshing 
the window. 

/ 


pixmap - XCreatePixmap ( display, window, COLS* (width +2), ROWS* (height +2) 
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/* 

* Add a time out. 

*/ 

Xt AddT imeOut ( T IMER_VALUE , cb_expose, NULL ) ; 

/* 

* Loop forever. 

*/ 

XtMainLoop ( ) ; 

} 


XtCallbackProc cb_expose ( widget, closure, calldata ) 

Widget widget; /★ Set to the widget which initiated this 

* callback function. 

*/ 


( 


caddr t closure; 


XmDrawingAreaCallbackStruct 


! * Callback specific data. This parameter 

* indicates the selected function. 

*/ 

*calldata; 

/* Specifies any callback-specific data the 

* widget needs to pass to the client. 

*/ 


register int x, y; 


static double 


value - 1000.00001; 


static int 


count-1; 


int 


z; 


/* 

* Update the string. 
*/ 


value +- (double) 0.00001; 


/* 

* Determine which gc to use 
*/ 


z - (count % 4) + 1; 


/* 

* Write out the strings. 
*/ 


for ( y - 0; y < ROWS; y++ ) 

for ( x - 0; x < COLS; x++ ) { 

XDrawImageString ( display, window, gc[z], x*(width+2), 

ascent + (y* (height +2) ) , 
string, strlen ( string ) ); 


/* 

* Flush the buffer immediately. 
*/ 
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XFlush ( display ) ; 

/* 

* Test and increment counter 
*/ 

if (count > CYCLES) 
exit ( 1) ; 
count ++; 


/* 

* Reset the timer. 

*/ 

XtAddTimeOut ( TIMER_VALUE, cb_expose, NULL ) 

} 
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/* 

Draw straight to screen using XDrawlmageString 
multiple gc switches/cycle 
no text formatting 



♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


<stdio . h> 

<string . h> 
<X11/Intrinsic .h> 
<Xll/StringDefs .h> 
<X11 /Cardinals .h> 
<X11/Shell.h> 
<Xll/MwmUtil.h> 
<Xm/Xm.h> 
<Xm/DialogS.h> 
<Xm/DrawingA . h> 
<Xm/MainW. h> 

<Xm/ RowColumn . h> 


♦define CYCLES 100 

♦define TIM£R_VALUE 1000 
♦define ROWS 50 

♦define COLS 10 


Display 

Visual 

Pixmap 

GC 

Font 

Window 

XFontStruct 

int 


char 


♦display; 

♦visual; 

pixmap; 

gc [5] ; 

font ; 

window; 

♦f ont_info; 

screen; 
ascent , 
width, 
height; 

string [ ] - ”1000 . 00001", 
format [10] ; 


int main { argc, argv ) 
int argc; 

char ♦argvf]; 

{ 

register int i ; 

Widget top, mjnain, mb_ jnain, 

Ar 9 args[10]; 

static XtCallbackRec cb[] - { 

{ (XtCallbackProc) NULL, (caddr_t ) NULL }, 

{ (XtCallbackProc) NULL, (caddr_t ) NULL } 


rr^o_f ile. 


scroll, draw 



XtCallbackProc 
XColor 
Colormap 
XVisuallnf o 


XSetWindowAttributes 

XCharStruct 

int 

unsigned long 
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cb_expose () ; 

color; 

xcmap; 

V/ 

*visual_list ; 
attributes ; 
overall; 

visuals_matched; 

mask; 


int 


/* 

* Initialize the Toolkit. 

*/ 

top - Xtlnitialize ( argv[0], "Fast", NULL, 0, fiargc, argv >; 

/* 

* Save a pointer to the X Windows display structure. Save the current screen. 
*/ 

display - XtDisplay ( top ) ; 
screen ■ DefaultScreen ( display ) ; 

/* 

* Initialize font information. 

*/ 

if ( { font_info - XLoadQueryFont ( display, argv[l] ) ) — 0 ) 
exit ( 1 ) ; 

font * font_ inf o->f id; 

/* 

* Save the format to use for printing out of data. 

*/ 

strcpy < format, argv[2] ); 

/* 

* Initialize size of string to draw. 

*/ 

XText Extents ( font_info, string, strlen ( string ), fiascent, 

&ascent, fiascent, Coverall ); 
width - overall .width; 

height - overall. ascent + overall .descent ; 
ascent » overall. ascent; 

/* 

* Query the X server to find out if there is the right type of visual. 

*/ 
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v. screen - screen; 

v. depth - 8; 

v. class - Pseudocolor; 

visual_list * XGetVisuallnf o ( display, 

visualScreenMask | VisualDepthMask | visualClassMask, 
&v, &visuals_matched ) ; 



/* 

* Copy the required visual and free up memory allocated for by the visual 

* query function. 

*/ 


memcpy ( Svisual, &visual_list [0] .visual, sizeof ( visual ) ); 
XFree ( visual list ) ; 


/* 

* Create the main window and a menu bar. 
*/ 


XtManageChild ( m_main ** XmCreateMainWindow ( top, "", NULL, 0 ) ) ; 

XtManageChild ( mb_main « XmCreateMenuBar ( m_main, "", NULL, 0 ) ) ; 


/* 

* Create menu. 
*/ 


m P_f ile “ XmCreatePulldownMenu { mb_main, ntt t.t. ^ o ) ; 

i - 0; 

XtSetArg ( args[i], XmNsubMenuId, mp_file ); i++; 

XtManageChild ( XmCreateCascadeButton ( mb_main, "File", args, i ) ) ; 
XtManageChild { XmCreatePushButton { mp_file, "Exit", NULL, 0 ) ) ; 


/* 

* Create a scrolled window widget . 
*/ 


i - 0; 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( args(i], XmNheight, ROWS* ( height +2) ) ; i++; 
XtManageChild { scroll - 

XmCreateScrolledWindow ( m_main, "scroll", args, i ) ) ; 


/* 

* Create the drawing area widget . 

*/ 


cb[0] .callback “ (XtCallbackProc) cb expose; 
cb[0] .closure - (caddr_t)0; ~ 

i - 0; 

XtSetArg ( args[i], XmNexposeCallback, cb ); i++; 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( args[i], XmNheight, ROWS* ( height +2) ) ; i++; 

XtManageChild ( draw ■ 

XmCreateDrawingArea ( scroll, "draw", args, i ) ) ; 


/* 

* Realize the widgets. 
*/ 


XtRealizeWidget ( top ) ; 




/* 

* Set the attributes necessary 
*/ 

attributes . save_under 
attributes .backing_store 
attributes .border jpixel 
attributes .background_pixel 
attributes .bit_gravity 
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to create the actual window. 


- 0 ; 

- NotUseful; 

- BlackPixel { display, screen ) ; 

- WhitePixel ( display, screen ) ; 

- NorthWestGravity; 


mask - CWBackingStore I CWSaveUnder I CWBackPixel I 
CWBorder Pixel I CWBitGravity; 


* Create the window for the drawing area widget. 

*/ 

XtCreateWindow ( draw, CopyFromParent, visual, mask, fiattributes ) ; 
window - XtWindow ( draw ) ; 



/* ( 

* Create and install a new color map. The color map is associated with 

♦ the shell widget and is " installed" by the window manager. 

*/ 


/*xcmap - XCreateColormap ( display, window, visual, AllocAll ) ; 
XSetWindowColormap ( display, XtWindow ( top ), xcmap );*/ 

xcmap - DefaultColormap (display, screen); 


/* 

* Create the graphics context . 

*/ 

gc[l] - XCreateGC ( display, window, NULL, NULL ); 

gc [2] - XCreateGC ( display, window, NULL, NULL ); 
color. red * 65000; 
color. blue * 0; 
color. green * 0; 

if (XAllocColor (display, xcmap, ficolor) ) 

XSetBackground (display, gc[2], color .pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

gc (3] - XCreateGC ( display, window, NULL, NULL ); 
color. red - 0; 
color. blue ■ 65000; 
color. green « 0; 

if (XAllocColor (display, xcmap, ficolor) ) 

XSetBackground (display, gc [3] , color .pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 

gc [4] - XCreateGC ( display, window, NULL, NULL ); 
color. red - 0; 
color. blue * 0; 
color. green - 65000; 

if (XAllocColor (display, xcmap, Scolor) ) 

XSetBackground (display, gc[4], color .pixel) ; 

else 

fprintf (stderr, "couldn't allocate color"); 


for (z»l; z<5; z++) 



stnfmgc.c 

XSetFont ( display, gc[z], font ); 

/* 

* Create the pixmap used to retain a copy of the image for refreshing 

* the window. 

*/ 

pixmap - XCreatePixmap ( display, window, COLS* (width +2), ROWS* ( height +2) , 

8 ) ; 

/* 

* Add a time out. 

*/ 

Xt AddT imeOut ( TIMER_VALUE, cb_expose, NULL ) ; 

/* 

* Loop forever . 

*/ 

XtMainLoop ( ) ; 

) 



XtCallbackProc cb_expose ( widget, closure, calldata ) 

/* Set to the widget which initiated this 

* callback function. 

*/ 

/* Callback specific data. This parameter 

* indicates the selected function. 

*/ 

* calldata; 

/* Specifies any callback-specific data the 

* widget needs to pass to the client 
*/ 


1000 . 00001 ; 

static int count-1, • 

int z; 

/* 

* Update the string. 

*/ 

value +- (double) 0.00001; 

/* 

* Write out the strings . 

*/ 


Widget widget ; 

caddr_t closure; 
XmDrawingAreaCallbackStruct 

register int x, y; 

static double value — 


for 


( y 

for 


- 0; y < ROWS; y++ ) 

( x - 0; x < COLS; x++ ) { 
z - ( (x + y) % 4) + 1; 

XDrawImageString ( display, window, gc[z], x*(width+2), 
ascent + (y* (height +2) ) , string, strlen ( string 


) ; 


/* 


> 



*/ 

XFlush ( display ) ; 

/* 

* Test and increment counter 
*/ 

if {count > CYCLES) 
exit (1) ; 
count ++; 


/* 

* Reset the timer. 

*/ 

Xt AddT imeOut ( T IMER_VALUE , cb_expose, NULL ) ; 

} 


stnofmt.c 

/* 

Draw straight to screen using XDrawImageString 
no gc switching 
No text formatting 



♦include <stdio.h> 

♦include <string.h> 

♦include <X11/Intrinsic ,h> 
♦include <Xll/StringDefs . h> 
♦include <X11/Cardinals ,h> 
♦include <X11/Shell . h> 
♦include <Xll/MwmUtil . h> 
♦include <Xm/Xm.h> 

♦include <Xm/DialogS .h> 
♦include <Xm/DrawingA.h> 
♦include <Xm/MainW.h> 
♦include <Xm/RowColumn . h> 


♦define CYCLES 100 

♦define TIMER_VALUE 1000 
♦define ROWS 50 

♦define COLS 10 


Display 

Visual 

Pixznap 

GC 


♦display; 

♦visual; 

pixmap; 

gc; 


Font font; 

Window window; 


XFont Struct 


*f ont_inf o; 


int 


char 


screen; 

ascent, 

width, 

height; 

string [ ] - "1000.00001", 
format [10] ; 


int main ( argc, argv ) 
int argc; 

char *argv[]; 

{ 

register int 

Widget 

Arg 


i; 

top, m_main, mb__main, mp_file, scroll, draw 
args [10] ; 


static XtCallbackRec cb[] - { 

{ (XtCallbackProc) NULL, (caddr_t ) NULL }, 
{ (XtCallbackProc) NULL, (caddr_t ) NULL } 



stnofmtx 


cb_expose () ; 
color; 
v, 

*visual_li3t ; 
attributes ; 
overall; 

visuals_matched; 
mask; 

/* 

* Initialize the Toolkit. 

*/ 

top - Xtlnitialize ( argv[0], "Fast", NULL, 0, iargc, argv ); 

/* 

* Save a pointer to the X Windows display structure. Save the current screen. 
*/ 

display - XtDisplay ( top ) ; 
screen - DefaultScreen { display ) ; 

/* 

* Initialize font information. 

*/ 

if ( ( font_info - XLoadQueryFont ( display, argv[l] ) ) — 0 ) 
exit ( 1 ) ; 

font - font info->fid; 


* Save the format to use for printing out of data. 

*/ 

strcpy ( format, argv[2] ); 

/* 

* Initialize size of string to draw. 

*/ 

XTextExtents ( font_info, string, strlen ( string ), iascent, 

Sascent, Sascent, ioverall ); 
width - overall .width; 

height - overall .ascent + overall .descent ; 
ascent “ overall .ascent; 

/* 

* Query the X server to find out if there is the right type of visual. 

*/ 

v. screen — screen; 

v . depth “ 8 ; 

v. class - Pseudocolor; 

visual_list - XGetVisuallnfo ( display, 

VisualScreenMask I VisualDepthMask I VisualClassMask, 


XtCallbackP roc 
XColor 
XVisuallnf o 

XSetWindowAttributes 

XCharStruct 

int 

unsigned long 


stnofmt.c 


iv, &visuals_matched ) / 

/* 

* Copy the required visual and free up memory allocated for by the visual 

* query function. 

*/ 



memcpy ( ^visual, &visual_list [0] . visual, sizeof ( visual ) ); 
XFree { visual list ) ; 


/* 

* Create the main window and a menu bar. 
*/ 


XtManageChild ( m_main * XmCreateMainWindow ( top, NULL, 0 ) ) ; 

XtManageChild < mb_main - XmCreateMenuBar ( mjmain, NULL, 0 ) ) ; 


/* 

* Create menu. 
*/ 


mp_file - XmCreatePulldownMenu ( mb_main, NULL, 0 ); 
i - 0; 

XtSetArg ( argsfi], XmNsubMenuId, mp_file ); i++; 

XtManageChild ( XmCreateCascadeButton ( mb__main, "File", args, i ) ) ; 
XtManageChild ( XmCreatePushButton ( mp_file, "Exit", NULL, 0 ) ) ; 

/* 

* Create a scrolled window widget. 

*/ 


i » 0; 

XtSetArg ( args[i], XmNwidth, COLS* (width +2)); i++; 

XtSetArg ( argsfi], XmNheight, ROWS* ( height +2) ) ; i++; 
XtManageChild ( scroll - 

XmCreateScrolledWindow ( m_main, "scroll", args, i ) )/ 


/* 

* Create the drawing area widget. 
*/ 


cb [ 0 ]. callback * (XtCallbackProc) cb__expose; 
cb[0] .closure - (caddr_t)0; ” 

i - 0; 

XtSetArg ( argsfi], XmNexposeCallback, cb ) ; i++ 

XtSetArg ( argsfi], XmNwidth, COLS* (width +2))/ i++ 

XtSetArg ( argsfi], XmNheight, ROWS* ( height +2) ) ; i++ 

XtManageChild ( draw - 

XmCreateDrawingArea ( scroll, "draw", args, i ) ); 


/* 

* Realize the widgets. 
*/ 


Xt Realize Widget ( top ) ; 


/* 

★ 

*/ 


Set the attributes necessary to create the actual window. 


attributes . save_under - 0; 

attributes .backing_store - NotUseful; 


stnofmt.c 


attributes .border_pixel “ BlackPixel ( display, screen ); 
attributes . background_pixel m WhitePixel ( display, screen ); 
attributes .bit_gravity - NorthWestGravity; 

mask - CWBackingStore I CWSaveUnder | CWBackPixel I 
CWBorder Pixel I CWBitGravity; 



* Create the window for the drawing area widget. 
*/ 


XtCreateWindow ( draw, CopyFromParent, visual, mask, (attributes ) * 
window - XtWindow ( draw ) ; 


* Create and install a new color map. The color map is associated with 

* the shell widget and is "installed" by the window manager. 

*/ 


/*xcmap - XCreateColormap ( display, window, visual, AllocAll ) ; 
XSet WindowCo lo rmap ( display, XtWindow ( top ), xcmap );*/ 


/* 

* Create the graphics context . 

*/ 

gc - XCreateGC ( display, window, NULL, NULL ) ; 

XSetFont ( display, gc, font ) ; 

/* 

* Create the pixmap used to retain a copy of the image for refreshing 

* the window. 

*/ 

pixmap - XCreatePixmap ( display, window, COLS* (width +2), ROWS* (height +2) , 

8 ) ; 


/* 

* Add a t ime out . 

*/ 

XtAddTimeOut ( TIMER_VALUE, cb_expose, NULL ) ; 

/* 

* Loop forever. 

*/ 

XtMainLoop ( ) ; 

) 


Xt Ca 1 IbackP roc cb_expose ( widget, closure, calldata ) 

Widget widget; /* Set to the widget which initiated this 

* callback function. 

*/ 

caddr_t closure; /* Callback specific data. This parameter 

* indicates the selected function. 

*/ 

XmDrawingAreaCallbackStruct *calldata; 

/* Specifies any callback-specific data the 

* widget needs to pass to the client . 



stnofmt.c 



register int 
static double 
static int 


*/ 

x, y; 

value - 1000.00001; 
count-1; 


/* 

* Update the string. 
*/ 


value +- (double) 0 . 00001; 

/* 

* Write out the strings. 

*/ 


for ( y - 0; y < ROWS; y++ ) 

for ( x - 0; x < COLS; x++ ) { 

XDrawImageString ( display, window, gc, x*(width+2), 

ascent + (y* (height+2) ) , 
string, strlen ( string ) ) ; 


/* 

* Flush the buffer immediately. 
*/ 

XFlush ( display ) ; 

/* 

* Test and increment counter 
*/ 


if (count > CYCLES) 
exit ( 1 ) ; 
count++; 


/* 

* Reset the timer. 

*/ 

Xt AddT imeOut ( TIMER_VALUE, cb_expose, NULL ) ; 


) 
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******************************************** 
***** process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 

******************************************** 


LogTime 

from: Fri Aug 


to: Fri Aug 

Host 

Id: aries 

CPU 

type: 68030 


number: 2 


COMMAND 

PROCESS 


ID. 

SWAPPER 

0 

init 

1 

PAGEDAEMON 

2 

lwpl 

3 

lwp2 

4 

getty 

72 

update 

34 

csh 

71 

getty 

73 

errdemon 

50 

cron 

54 

Xgcm 

69 

Xgcm 

70 

portmap 

74 

netd 

75 

rwhod 

76 

talkd 

77 

rwalld 

78 

rusersd 

79 

timed 

80 

xdm 

91 

ypbind 

82 

biod 

83 

mountd 

84 

csh 

372 

xdm 

86 

nf sd 

87 

xdm 

88 

xdm 

89 

xcterm 

371 

csh 

361 

xdm 

254 

xcterm 

355 

prm 

551 

mwm 

357 

csh 

405 

xcterm 

404 

csh 

484 

drf lmgc 

552 

xcterm 

483 


17 11:09:47 1990 
17 11:12:16 1990 


80% CPU UASAGE 50% CPU 


Milli % of Milli 

Sec. Total Sec. 


0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

217 10.85 184 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

100 5.00 84 

0 0.00 0 

0 0.00 0 

0 0.00 0 

0 0.00 0 

234 11.70 217 

0 0.00 0 


UASAGE MEMORY COMSUMPTION 


% of 
Total 

Phys 

Virt 

Shr 

0.00 

0 

0 

0.0 

0.00 

15 

20 

0.0 

0.00 

8 

2056 

0.0 

0.00 

8 

8 

0.0 

0.00 

8 

8 

0.0 

0.00 

12 

18 

0.0 

0.00 

3 

8 

0.0 

0.00 

41 

50 

0.0 

0.00 

12 

18 

0.0 

0.00 

10 

16 

0.0 

0.00 

31 

36 

0.0 

0.00 

171 

198 

0.0 

9.20 

1956 

3286 

0.0 

0.00 

22 

29 

0.0 

0.00 

24 

31 

0.0 

0.00 

24 

29 

0.0 

0.00 

25 

32 

0.0 

0.00 

16 

22 

0.0 

0.00 

22 

29 

0.0 

0.00 

31 

39 

0.0 

0.00 

104 

115 

2.0 

0.00 

18 

24 

0.0 

0.00 

11 

11 

0.0 

0.00 

25 

31 

0.0 

0.00 

43 

50 

0.0 

0.00 

81 

92 

0.0 

0.00 

13 

19 

0.0 

0.00 

82 

97 

2.0 

0.00 

82 

97 

2.0 

0.00 

193 

227 

2.0 

0.00 

43 

50 

0.0 

0.00 

105 

116 

0.0 

0.00 

190 

224 

2.0 

4.20 

54 

76 

0.0 

0.00 

209 

231 

2.0 

0.00 

43 

50 

0.0 

0.00 

194 

228 

2.0 

0.00 

43 

50 

0.0 

10.85 

142 

188 

2.0 

0.00 

193 

227 

2.0 



PROCESS 

ID. 


0 

1 

2 

3 

4 

72 
34 
71 

73 
50 
54 

69 

70 

74 

75 

76 

77 

78 

79 

80 
91 
82 

83 

84 
372 

86 

87 

88 
89 

371 

361 

254 

355 

551 
357 
405 
404 
484 

552 
483 


drflmgc9xl5.A 



CONTEXT SWITCHING 
VOL. INVOL. 


PROCESS TOTAL SIGNALS 

PRIORITY I/O ACT. RECEIVED 


Total Avg. Total Avg. High Low Avg. 


n 

0 . 0 

0 

0.0 

35 

35 

35 

0 

0 

V 

o 

0.0 

0 

0.0 

45 

45 

45 

331 

295 

o 

0.0 

0 

0.0 

-25 

-25 

-25 

0 

0 

73 

0.5 

0 

0.0 

35 

35 

35 

0 

0 

o 

0.0 

0 

0.0 

44 

44 

44 

0 

0 

n 

0 . 0 

0 

0.0 

45 

45 

45 

0 

1 

15 

0 . 1 

0 

0.0 

46 

45 

45 

7861 

2289 

0 

0.0 

0 

0.0 

45 

45 

45 

19 

17 

o 

0.0 

0 

0.0 

45 

45 

45 

1 

1 

o 

0 . 0 

0 

0.0 

46 

46 

46 

4 

0 

o 

0 . 0 

0 

0.0 

45 

45 

45 

79 

39 

o 

0 . 0 

0 

0.0 

40 

40 

40 

51 

38 

V 

610 

4.1 

16 

0.1 

47 

41 

43 

104 

30 

o 

0.0 

0 

0.0 

45 

45 

45 

6 

0 

q 

0 . 1 

0 

0.0 

45 

45 

45 

16 

1 

o 

0.0 

0 

0.0 

45 

45 

45 

2023 

382 

o 

0.0 

0 

0.0 

46 

46 

46 

4 

0 

o 

0.0 

0 

0.0 

45 

45 

45 

3 

0 

o 

0.0 

0 

0.0 

46 

46 

46 

5 

0 

o 

0.0 

0 

0.0 

45 

45 

45 

21 

0 

o 

0.0 

0 

0.0 

49 

49 

49 

4 

0 

o 

0.0 

0 

0.0 

45 

45 

45 

7 

3 

442 

3.0 

0 

0.0 

46 

45 

45 

5 

0 

o 

0.0 

0 

0.0 

45 

45 

45 

54 

0 

o 

0.0 

0 

0.0 

45 

45 

45 

0 

6 

o 

0.0 

0 

0.0 

47 

47 

47 

11 

0 

582 

3.9 

0 

0.0 

48 

45 

45 

423 

0 

0 

0.0 

0 

0.0 

46 

46 

46 

1 

0 

0 

0.0 

0 

0.0 

46 

46 

46 

0 

0 

o 

0.0 

0 

0.0 

44 

44 

44 

0 

0 

o 

0.0 

0 

0.0 

49 

49 

49 

3 

7 

0 

0.0 

0 

0.0 

48 

48 

48 

10 

0 

o 

0.0 

0 

0.0 

44 

44 

44 

6 

0 

314 

2.1 

223 

1.5 

47 

45 

45 

244 

1 

3 

0.0 

2 

0.0 

46 

44 

45 

10 

0 

0 

0.0 

0 

0.0 

45 

45 

45 

1 

62 

o 

0.0 

0 

0.0 

45 

45 

45 

3 

0 

3 

0.0 

0 

0.0 

46 

45 

45 

0 

25 

322 

2.9 

296 

2.7 

52 

44 

48 

29 

0 

2 

0.0 

0 

0.0 

45 

45 

45 

0 

0 
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***** Process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 



LogTime from: Thu Aug 16 17:05:38 1990 
to: Thu Aug 16 17:08:07 1990 
Host Id: aries 

CPU type: 68030 

number: 2 


COMMAND PROCESS 80% CPU U AS AGE 50% CPU UASAGE MEMORY COMSUMPTION 

ID. 




Milli 

% of 



Sec . 

Total 

SWAPPER 

0 

0 

0.00 

init 

1 

0 

0.00 

PAGEDAEMON 

2 

0 

0.00 

lwpl 

3 

•0 

0.00 

lwp2 

4 

0 

0.00 

getty 

72 

0 

0.00 

update 

34 

0 

0.00 

getty 

71 

0 

0.00 

getty 

73 

0 

0.00 

errdemon 

50 

0 

0.00 

cron 

54 

0 

0.00 

Xgcm 

69 

0 

0.00 

Xgcm 

70 

183 

9.15 

portmap 

74 

0 

0.00 

netd 

75 

0 

0.00 

rwhod 

76 

0 

0.00 

talkd 

77 

0 

0.00 

rwalld 

78 

0 

0.00 

rusersd 

79 

0 

0.00 

timed 

80 

0 

0.00 

xdm 

91 

0 

0.00 

ypbind 

82 

0 

0.00 

biod 

83 

0 

0.00 

mount d 

84 

0 

0.00 

csh 

122 

0 

0.00 

xdm 

86 

0 

0.00 

nfsd 

87 

0 

0.00 

xdm 

88 

0 

0.00 

xdm 

89 

0 

0.00 

xcterm 

121 

0 

0.00 

xdm 

94 

0 

0.00 

mwm 

107 

0 

0.00 

csh 

111 

0 

0.00 

xcterm 

105 

0 

0.00 

go 

207 

0 

0.00 

drnofmt 

228 

50 

2.50 

prm 

227 

99 

4.95 

sleep 

229 

0 

0.00 


Milli % of ' 

Sec. Total Phys Virt Shr 


0 0.00 0 0 0.0 

0 0.00 15 20 0.0 

0 0.00 8 2056 0.0 

0 0.00 8 8 0.0 

0 0.00 8 8 0.0 

0 0.00 12 18 0.0 

0 0.00 3 8 0.0 

0 0.00 12 18 0.0 

0 0.00 12 18 0.0 

0 0.00 10 16 0.0 

0 0.00 31 36 0.0 

0 0.00 170 196 0.0 

166 8.30 1839 3118 0.0 

0 0.00 17 23 0.0 

0 0.00 24 31 0.0 

0 0.00 24 29 0.0 

0 0.00 25 32 0.0 

0 0.00 16 22 0.0 

0 0.00 22 29 0.0 

0 0.00 31 39 0.0 

0 0.00 104 115 2.0 

0 0.00 18 24 0.0 

0 0.00 11 ii o.O 

0 0.00 24 31 0.0 

0 0.00 43 50 0.0 

0 0.00 81 92 0.0 

0 0.00 13 19 o.O 

0 0.00 82 97 2.0 

0 0.00 82 97 2.0 

0 0.00 215 228 2.0 

0 0.00 105 116 0.0 

0 0.00 215 226 2.0 

0 0.00 43 50 0.0 

0 0.00 212 225 2.0 

0 0.00 34 43 0.0 

33 1.65 143 188 2.0 

83 4.15 54 76 0.0 

0 0.00 5 13 2.0 




PROCESS 

ID. 


0 

1 

2 

3 

4 

72 
34 
71 

73 
50 
54 

69 

70 

74 

75 

76 

77 

78 

79 

80 
91 
82 

83 

84 
122 

86 

87 

88 
89 

121 

94 

107 

111 

105 

207 

228 

227 

229 
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CONTEXT SWITCHING 
VOL. INVOL. 


PROCESS TOTAL SIGNALS 

PRIORITY I/O ACT. RECEIVED 


k^T. mil AvgT High LOW Avg. 


0 

0.0 

0 

0.0 

0 

0.0 

74 

0.5 

0 

0.0 

0 

0.0 

24 

0.2 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

686 

4 . 6 

0 

0.0 

0 

0.0 

9 

0.1 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

444 

3.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

2 

0.0 

0 

0.0 

5 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

357 

3.2 

294 

2.0 

17 

0.4 


0 0.0 

0 0.0 

0 0.0 

0 0.0 

0 0.0 

0 0.0 

2 0.0 

0 0.0 

0 0.0 

0 0.0 

0 0.0 

0 0.0 

209 1.4 

0 0.0 

0 0.0 

0 0.0 

0 0.0 

0 0.0 

0 0.0 

0 o.o 

0 0.0 

0 0.0 

0 0.0 

0 0.0 

0 0.0 

0 0.0 

0 0.0 

0 0.0 

0 0.0 

4 0.0 

0 0.0 

102 0.7 

0 0.0 

0 0.0 

0 0.0 

106 l.o 

321 2.2 

4 0.1 


35 

35 

35 

45 

45 

45 

25 

-25 

-25 

35 

35 

35 

44 

44 

44 

45 

45 

45 

45 

45 

45 

46 

46 

46 

45 

45 

45 

46 

46 

46 

45 

45 

45 

40 

40 

40 

49 

41 

44 

45 

45 

45 

45 

45 

45 

45 

45 

45 

46 

46 

46 

45 

45 

45 

46 

46 

46 

45 

45 

45 

49 

49 

49 

45 

45 

45 

46 

45 

45 

46 

46 

46 

45 

45 

45 

47 

47 

47 

45 

45 

45 

46 

46 

46 

46 

46 

46 

45 

44 

44 

52 

52 

52 

47 

45 

45 

56 

56 

56 

50 

50 

50 

45 

45 

45 

49 

45 

45 

47 

45 

46 

45 

45 

45 


0 

177 

0 

0 

0 

0 

967 

3 
1 

4 

16 

51 

48 

6 

15 

183 

4 

3 

5 

6 

4 
7 

5 

6 
0 

11 

17 

0 

0 

2 

3 
17 

4 
17 

1 

30 

226 

0 



0 

16 

0 

1 

0 


-j o o o o 




stflgc9xl5.A 

**************************************** # ,m 

***** Process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 

******************************************** 



LogTime from: Fri Aug 17 08:49:39 1990 
to: Fri Aug 17 08:52:08 1990 
Host Id: aries 

CPU type: 68030 

number: 2 


COMMAND 

PROCESS 

ID. 

80% CPU 

UASAGE 



Milli 
Sec . 

% of 
Total 

SWAPPER 

0 

0 

0.00 

init 

1 

0 

0.00 

PAGEDAEMON 

2 

0 

0.00 

Iwpl 

3 

0 

0.00 

lwp2 

4 

0 

0.00 

getty 

72 

0 

0.00 

update 

34 

0 

0.00 

getty 

71 

0 

0.00 

getty 

73 

0 

0.00 

errdemon 

50 

0 

0.00 

cron 

54 

0 

0.00 

Xgcm 

69 

0 

0.00 

Xgcm 

70 

133 

6.65 

port map 

74 

0 

0.00 

netd 

75 

0 

0.00 

rwhod 

76 

0 

0.00 

talkd 

77 

0 

0.00 

rwalid 

78 

0 

0.00 

rusersd 

79 

0 

0.00 

timed 

80 

0 

0.00 

xdm 

91 

0 

0.00 

ypbind 

82 

0 

0.00 

biod 

83 

0 

0.00 

mountd 

84 

0 

0.00 

csh 

372 

0 

0.00 

xdm 

86 

0 

0.00 

nf sd 

87 

0 

0.00 

xdm 

88 

0 

0.00 

xdm 

89 

0 

0.00 

xcterm 

371 

0 

0.00 

csh 

361 

0 

0.00 

xdm 

254 

0 

0.00 

xcterm 

355 

0 

0.00 

csh 

439 

0 

0.00 

xcterm 

438 

0 

0.00 

mwm 

357 

0 

0.00 

csh 

405 

0 

0.00 

xcterm 

404 

0 

0.00 

stf lgc 

449 

184 

9.20 

prm 

448 

100 

5.00 

cron 

450 

0 

0.00 


50% CPU UASAGE MEMORY COMSUMPTION 
Milli % of 

Sec. Total Phys Virt Shr 


0 0.00 0 0 0.0 

0 0.00 15 20 0.0 

0 0.00 8 2056 0.0 

0 0.00 8 8 0.0 

0 0.00 8 8 0.0 

0 0.00 12 18 0.0 

0 0.00 3 8 0.0 

0 0.00 12 18 0.0 

0 0.00 12 18 0.0 

0 0.00 10 16 0.0 

0 0.00 31 36 0.0 

0 0.00 171 198 0.0 

100 5.00 1878 3158 0.0 

0 0.00 22 29 0.0 

0 0.00 24 31 0.0 

0 0.00 24 29 0.0 

0 0.00 25 32 0.0 

0 0.00 16 22 0.0 

0 0.00 22 29 0.0 

0 0.00 31 39 0.0 

0 0.00 104 115 2.0 

0 0.00 18 24 0.0 

0 0.00 11 ii o.O 

0 0.00 25 31 0.0 

0 0.00 43 50 0.0 

0 0.00 81 92 0.0 

0 0.00 13 19 0.0 

0 0.00 82 97 2.0 

0 0.00 82 97 2.0 

0 0.00 193 227 2.0 

0 0.00 43 50 0.0 

0 0.00 105 116 0.0 

0 0.00 190 224 2.0 

0 0.00 43 50 0.0 

0 0.00 193 227 2.0 

0 0.00 206 228 2.0 

0 0.00 43 50 0.0 

0 0.00 193 227 2.0 

167 8.35 142 188 2.0 

84 4.20 54 76 2.0 

0 0.00 31 36 0.0 




PROCESS 

ID. 


0 

1 

2 

3 

4 

72 
34 
71 

73 
50 
54 

69 

70 

74 

75 

76 

77 

78 

79 

80 
91 
82 

83 

84 
372 

86 

87 

88 
89 

371 

361 

254 

355 

439 

438 

357 

405 

404 

449 
448 

450 


CONTEXT SWITCHING 
VOL. INVOL. 


PROCESS 

PRIORITY 


TOTAL 
I/O ACT. 


SIGNALS 

RECEIVED 


Total Avg. Total Avg. High Low Avg. 


o 

0.0 

0 

0.0 

35 

35 

35 

0 

0 

5 

0.0 

2 

0.0 

45 

45 

45 

203 

257 

0 

0.0 

0 

0.0 

-25 

-25 

-25 

0 

0 

73 

0.5 

0 

0.0 

35 

35 

35 

0 

0 

0 

0.0 

0 

0.0 

44 

44 

44 

0 

0 

o 

0 . 0 

0 

0.0 

45 

45 

45 

0 

1 

V 

9 

0.1 

0 

0.0 

45 

44 

44 

5691 

2010 

0 

0.0 

0 

0.0 

46 

46 

46 

3 

0 

0 

0.0 

0 

0.0 

45 

45 

45 

1 

1 

0 

0.0 

0 

0.0 

46 

46 

46 

4 

0 

3 

0.0 

2 

0.0 

46 

45 

45 

62 

34 

0 

0.0 

0 

0.0 

45 

45 

45 

51 

33 

676 

4.5 

6 

0.0 

47 

40 

42 

93 

30 

0 

0.0 

0 

0.0 

45 

45 

45 

6 

0 

9 

0 . 1 

0 

0.0 

45 

45 

45 

15 

1 

7 

0.0 

0 

0.0 

45 

45 

45 

1715 

335 

0 

0.0 

0 

0.0 

46 

46 

46 

4 

0 

0 

0.0 

0 

0.0 

45 

45 

45 

3 

0 

0 

0.0 

0 

0.0 

46 

46 

46 

5 

0 

13 

0.1 

0 

0.0 

45 

44 

44 

12 

0 

0 

0.0 

0 

0.0 

49 

49 

49 

4 

0 

0 

0.0 

0 

0.0 

45 

45 

45 

7 

1 

444 

3.0 

0 

0.0 

46 

45 

45 

5 

0 

0 

0.0 

0 

0.0 

45 

45 

45 

24 

0 

0 

0.0 

0 

0.0 

45 

45 

45 

0 

6 

0 

0.0 

0 

0.0 

47 

47 

47 

11 

0 

5 

0.0 

0 

0.0 

45 

45 

45 

75 

0 

0 

0.0 

0 

0.0 

46 

46 

46 

1 

0 

0 

0.0 

0 

0.0 

46 

46 

46 

0 

0 

0 

0.0 

0 

0.0 

44 

44 

44 

0 

0 

0 

0.0 

0 

0.0 

49 

49 

49 

3 

7 

0 

0.0 

0 

0.0 

48 

48 

48 

10 

0 

0 

0.0 

0 

0.0 

44 

44 

44 

6 

0 

0 

0.0 

0 

0.0 

45 

45 

45 

4 

5 

0 

0.0 

0 

0.0 

45 

45 

45 

14 

0 

4 

0.0 

17 

0.1 

47 

45 

46 

10 

0 

0 

0.0 

0 

0.0 

46 

45 

45 

1 

33 

3 

0.0 

6 

0.0 

45 

44 

44 

3 

0 

350 

2.9 

262 

2.2 

52 

45 

47 

31 

0 

298 

2.0 

302 

2.0 

48 

45 

45 

244 

1 

0 

0.0 

0 

0.0 

45 

45 

45 

2 

0 
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★★★★★★★★★★★a******************************** 

***** Process Resource Monitor Phase 2 ***** 

***** Analysis Report ***** 

*************************************.***£^ A ^ 


LogTime from: Thu Aug 16 16:59:34 1990 
to: Thu Aug 16 17:02:04 1990 
Host Id: aries 

CPU type: 68030 

number: 2 


COMMAND 

PROCESS 

ID. 

80% CPU 

UASAGE 

50% CPU 

UASAGE 

MEMORY 

COMSUMPTION 



Hi 111 

% of 

Milli 

% of 






Sec . 

Total 

Sec . 

Total 

Phys 

Virt 

Shr 

SWAPPER 

0 

0 

0.00 

0 

0.00 

0 

0 

0.0 

init 

1 

0 

0.00 

0 

0.00 

15 

20 

0.0 

PAGEDAEMON 

2 

0 

0.00 

0 

0.00 

8 

2056 

0.0 

Iwpl 

3 

0 

0.00 

0 

0.00 

8 

8 

0 . 0 

lwp2 

4 

0 

0.00 

0 

0.00 

8 

8 

0.0 

getty 

72 

0 

0.00 

0 

0.00 

12 

18 

0.0 

update 

34 

0 

0.00 

0 

0.00 

3 

8 

0.0 

getty 

71 

0 

0.00 

0 

0.00 

12 

18 

0.0 

getty 

73 

0 

0.00 

0 

0.00 

12 

18 

0 . 0 

errdemon 

50 

0 

0.00 

0 

0.00 

10 

16 

0.0 

cron 

54 

0 

0.00 

0 

0.00 

31 

36 

0.0 

Xgcm 

69 

0 

0.00 

0 

0.00 

170 

196 

0.0 

Xgcm 

70 

150 

7.50 

133 

6.65 

1839 

3118 

0.0 

port map 

74 

0 

0.00 

0 

0.00 

17 

23 

0.0 

netd 

75 

0 

0.00 

0 

0.00 

24 

31 

0 . 0 

rwhod 

76 

0 

0.00 

0 

0.00 

24 

29 

0.0 

talkd 

77 

0 

0.00 

0 

0.00 

25 

32 

0.0 

rwalld 

78 

0 

0.00 

0 

0.00 

16 

22 

0.0 

rusersd 

79 

0 

0.00 

0 

0.00 

22 

29 

0.0 

timed 

80 

0 

0.00 

0 

0.00 

31 

39 

0.0 

xdm 

91 

0 

0.00 

0 

0.00 

104 

115 

2.0 

ypbind 

82 

0 

0.00 

0 

0.00 

18 

24 

0.0 

biod 

83 

0 

0.00 

0 

0.00 

11 

11 

0.0 

mountd 

84 

0 

0.00 

0 

0.00 

24 

31 

0.0 

csh 

122 

0 

0.00 

0 

0.00 

43 

50 

0.0 

xdm 

86 

0 

0.00 

0 

0.00 

81 

92 

0.0 

nfsd 

87 

0 

0.00 

0 

0.00 

13 

19 

0.0 

xdm 

88 

0 

0.00 

0 

0.00 

82 

97 

2.0 

xdm 

89 

0 

0.00 

0 

0.00 

82 

97 

2.0 

xcterm 

121 

0 

0.00 

0 

0.00 

215 

228 

2.0 

xdm 

94 

0 

0.00 

0 

0.00 

105 

116 

0.0 

mwm 

107 

0 

0.00 

0 

0.00 

215 

226 

2.0 

csh 

111 

0 

0.00 

0 

0.00 

43 

50 

0.0 

xcterm 

105 

0 

0.00 

0 

0.00 

212 

225 

2.0 

go 

207 

0 

0.00 

0 

0.00 

34 

43 

0.0 

stf lmgc 

221 

184 

9.20 

167 

8.35 

142 

180 

2.0 

prm 

220 

100 

5.00 

83 

4.15 

54 

76 

0.0 

sleep 

222 

0 

0.00 

0 

0.00 

34 

43 

2.0 




PROCESS 

ID. 


0 

1 

2 

3 

4 

72 
34 
71 

73 
50 
54 

69 

70 

74 

75 

76 

77 

78 

79 

80 
91 
82 

83 

84 
122 

86 

87 

88 
89 

121 

94 

107 

111 

105 

207 

221 

220 

222 


stflmgc9xl5.A 


CONTEXT SWITCHING 
VOL . INVOL . 


PROCESS 

PRIORITY 


TOTAL 
I/O ACT. 


SIGNALS 

RECEIVED 


Total Avg. Total Avg. 


High Low Avg. 


0 0.0 0 

4 0.0 0 

0 0.0 0 

74 0.5 0 

0 0.0 0 

0 0.0 0 

16 0.1 6 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

658 4.4 8 

0 0.0 0 

0 0.0 0 

3 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

444 3.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

2 0.0 4 

0 0.0 0 

0 0.0 0 

3 0.0 2 

454 3.8 412 

297 2.0 325 

0 0.0 0 


0.0 

35 

35 

35 

0.0 

45 

45 

45 

0.0 

-25 

-25 

-25 

0.0 

35 

35 

35 

0.0 

44 

44 

44 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

40 

40 

40 

0.1 

44 

41 

42 

0.0 

45 

45 

45 

0.0 

44 

44 

44 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

49 

49 

49 

0.0 

45 

45 

45 

0.0 

46 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

47 

47 

47 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

52 

52 

52 

0.0 

46 

45 

45 

0.0 

56 

56 

56 

0.0 

50 

50 

50 

0.0 

45 

45 

45 

3.4 

49 

47 

47 

2.2 

47 

45 

45 

0.0 

45 

45 

45 


0 

174 

0 

0 

0 

0 

887 

3 
1 

4 

16 

51 

40 

6 

15 

161 

4 

3 

5 

6 

4 
7 

5 

6 
0 

11 

14 

0 

0 

2 

3 
17 

4 
17 

0 

32 

250 

0 


0 

27 

0 

0 

0 

1 

113 

0 

1 

0 

2 

1 

0 

0 

1 

18 


25 

0 

0 

0 

0 

0 

0 

0 

7 

0 

10 

0 

1 

0 


OOOOOr-tOO 



stflmgccs38.A 

***** Process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 




LogTime from: Thu Aug 16 16:18:30 1990 
to: Thu Aug 16 16:20:59 1990 
Host Id: aries 

CPU type: 68030 

number: 2 


COMMAND 

PROCESS 

ID. 

80% CPU 

UASAGE 

50% CPU 

UASAGE 

MEMORY 

COMSUMPTION 


Milli 

% of 

Milli 

% of 





Sec . 

Total 

Sec . 

Total 

Phys 

Virt 

Shr 

SWAPPER 

0 

0 

0.00 

0 

0.00 

0 

0 

0.0 

init 

1 

0 

0.00 

0 

0.00 

15 

20 

0.0 

PAGEDAEMON 

2 

0 

0.00 

0 

0.00 

8 

2056 

0.0 

lwpl 

3 

0 

0.00 

0 

0.00 

8 

8 

0.0 

lwp2 

4 

0 

0.00 

0 

0.00 

8 

8 

0.0 

getty 

72 

0 

0.00 

0 

0.00 

12 

18 

0.0 

update 

34 

0 

0.00 

0 

0.00 

3 

8 

0.0 

getty 

71 

0 

0.00 

0 

0.00 

12 

18 

0.0 

getty 

73 

0 

0.00 

0 

0.00 

12 

18 

0.0 

errdexnon 

50 

0 

0.00 

0 

0.00 

10 

16 

0.0 

cron 

54 

0 

0.00 

0 

0.00 

30 

36 

0.0 

Xgcm 

69 

0 

0.00 

0 

0.00 

170 

196 

0.0 

Xgcm 

70 

200 

10.00 

183 

9.15 

1834 

3115 

0.0 

port map 

74 

0 

0.00 

0 

0.00 

17 

23 

0.0 

netd 

75 

0 

0.00 

0 

0.00 

24 

31 

0.0 

rwhod 

76 

0 

0.00 

0 

0.00 

24 

29 

0.0 

talkd 

77 

0 

0.00 

0 

0.00 

25 

32 

0.0 

rwalld 

78 

0 

0.00 

0 

0.00 

16 

22 

0.0 

rusersd 

79 

0 

0.00 

0 

0.00 

22 

29 

0.0 

timed 

80 

0 

0.00 

0 

0.00 

31 

39 

0.0 

xdm 

91 

0 

0.00 

0 

0.00 

104 

115 

2.0 

ypbind 

82 

0 

0.00 

0 

0.00 

18 

24 

0.0 

biod 

83 

16 

0.80 

0 

0.00 

11 

11 

0.0 

mountd 

84 

0 

0.00 

0 

0.00 

24 

31 

0.0 

csh 

122 

0 

0.00 

0 

0.00 

43 

50 

0.0 

xdm 

86 

0 

0.00 

0 

0.00 

81 

92 

0.0 

nfsd 

87 

0 

0.00 

0 

0.00 

13 

19 

0.0 

xdm 

88 

0 

0.00 

0 

0.00 

82 

97 

2.0 

xdm 

89 

0 

0.00 

0 

0.00 

82 

97 

2.0 

xcterm 

121 

0 

0.00 

0 

0.00 

215 

228 

2.0 

xdm 

94 

0 

0.00 

0 

0.00 

105 

116 

0.0 

mwm 

107 

0 

0.00 

0 

0.00 

215 

226 

2.0 

csh 

111 

0 

0.00 

0 

0.00 

43 

50 

0.0 

prm 

150 

100 

5.00 

84 

4.20 

54 

76 

0.0 

go 

149 

0 

0.00 

0 

0.00 

34 

43 

0.0 

xcterm 

105 

0 

0.00 

0 

0.00 

212 

225 

2.0 

stf lmgc 

151 

183 

9.15 

149 

7.45 

142 

188 

2.0 




stflmgccs38.A 


PROCESS 

ID. 


0 

1 

2 

3 

4 

72 
34 
71 

73 
50 
54 

69 

70 

74 

75 

76 

77 

78 

79 

80 
91 
82 

83 

84 
122 

86 

87 

88 
89 

121 

94 

107 

111 

150 
149 
105 

151 


CONTEXT SWITCHING 
VOL. INVOL. 


PROCESS TOTAL SIGNALS 

PRIORITY I/O ACT. RECEIVED 


Total Avg. Total Avg. 


High Low Avg. 


0 0.0 0 

0 0.0 0 

0 0.0 0 

73 0.5 0 

0 0.0 0 

0 0.0 0 

15 0.1 4 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

759 5.1 207 

14 0.1 2 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

15 0.1 0 

0 0.0 0 

0 0.0 0 

442 3.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

31 0.2 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

101 0.7 248 

0 0.0 0 

291 2.0 275 

0 0.0 0 

0 0.0 0 

192 1.3 544 


0.0 

35 

35 

35 

0.0 

45 

45 

45 

0.0 

-25 

-25 

-25 

0.0 

35 

35 

35 

0.0 

44 

44 

44 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

46 

46 

46 

0.0 

44 

44 

44 

1.4 

50 

42 

44 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

49 

49 

49 

0.0 

44 

44 

44 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

47 

47 

47 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

52 

52 

52 

1.7 

54 

48 

48 

0.0 

56 

56 

56 

1.8 

48 

46 

46 

0.0 

48 

48 

48 

0.0 

50 

50 

50 

3.7 

51 

46 

49 


0 

140 

0 

0 

0 

0 

280 

3 
1 

4 

5 
51 
20 

6 
9 

48 

4 

3 

5 

6 

4 
7 

5 

6 
0 

11 

9 

0 

0 

1 

3 
15 

4 

226 

7 

17 

0 


0 

15 

0 

0 

0 

1 

32 

0 

1 

0 

0 

0 

0 

0 

1 

5 

0 

0 

0 

0 

0 

1 

0 

0 

7 

0 

0 

0 

0 

0 

0 

0 

7 

1 

0 

0 

0 



stflmgctmsl6.A 

******************************************** 
***** Process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 

******************************************** 



LogTime from: Fri Aug 17 08:43:15 1990 
to: Fri Aug 17 08:45:46 1990 
Host Id: aries 

CPU type: 68030 

number: 2 


COMMAND 

PROCESS 

ID. 

80% CPU 

UASAGE 



Milli 

% of 



Sec . 

Total 


SWAPPER 

0 

0 

0.00 

init 

1 

0 

0.00 

PAGEDAEMON 

2 

0 

0.00 

lwpl 

3 

0 

0.00 

lwp2 

4 

0 

0.00 

getty 

72 

0 

0.00 

update 

34 

0 

0.00 

getty 

71 

0 

0.00 

getty 

73 

0 

0.00 

errdemon 

50 

0 

0.00 

cron 

54 

0 

0.00 

Xgcm 

69 

0 

0.00 

Xgcm 

70 

167 

8.35 

port map 

74 

0 

0.00 

netd 

75 

0 

0.00 

rwhod 

76 

0 

0.00 

talkd 

77 

0 

0.00 

rwalld 

78 

0 

0.00 

rusersd 

79 

0 

0.00 

timed 

80 

0 

0.00 

xdm 

91 

0 

0.00 

ypbind 

82 

0 

0.00 

biod 

83 

0 

0.00 

mountd 

84 

0 

0.00 

csh 

372 

0 

0.00 

xdm 

86 

0 

0.00 

nfsd 

87 

0 

0.00 

xdm 

88 

0 

0.00 

xdm 

89 

0 

0.00 

xcterm 

371 

0 

0.00 

csh 

361 

0 

0.00 

xdm 

254 

0 

0.00 

xcterm 

355 

0 

0.00 

stf Imgc 

429 

200 

10.00 

mwm 

357 

0 

0.00 

csh 

405 

0 

0.00 

xcterm 

404 

0 

0.00 

prm 

428 

84 

4.20 


50% CPU UASAGE MEMORY COMSUMPTION 


Milli 

% of 




Sec. 

Total 

Phys 

Virt 

Shr 

0 

0.00 

0 

0 

0.0 

0 

0.00 

15 

20 

0.0 

0 

0.00 

8 

2056 

0.0 

0 

0.00 

8 

8 

0.0 

0 

0.00 

8 

8 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

3 

8 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

10 

16 

0.0 

0 

0.00 

31 

36 

0.0 

0 

0.00 

171 

198 

0.0 

101 

5.05 

1858 

3136 

0.0 

0 

0.00 

22 

29 

0.0 

0 

0.00 

24 

31 

0.0 

0 

0.00 

24 

29 

0.0 

0 

0.00 

25 

32 

0.0 

0 

0.00 

16 

22 

0.0 

0 

0.00 

22 

29 

0.0 

0 

0.00 

31 

39 

0.0 

0 

0.00 

104 

115 

2.0 

0 

0.00 

18 

24 

0.0 

0 

0.00 

11 

11 

0.0 

0 

0.00 

25 

31 

0.0 

0 

0.00 

43 

50 

0.0 

0 

0.00 

81 

92 

0.0 

0 

0.00 

13 

19 

0.0 

0 

0.00 

82 

97 

2.0 

0 

0.00 

82 

97 

2.0 

0 

0.00 

193 

227 

2.0 

0 

0.00 

43 

50 

0.0 

0 

0.00 

105 

116 

0.0 

0 

0.00 

190 

224 

2.0 

183 

9.15 

142 

188 

2.0 

0 

0.00 

204 

226 

2.0 

0 

0.00 

43 

50 

2.0 

0 

0.00 

193 

227 

2.0 

83 

4.15 

54 

76 

2.0 




PROCESS 

ID. 


0 

1 

2 

3 

4 

72 
34 
71 

73 
50 
54 

69 

70 

74 

75 

76 

77 

78 

79 

80 
91 
82 

83 

84 
372 

86 

87 

88 
89 

371 

361 

254 

355 

429 

357 

405 

404 

428 


stflmgctmsl6.A 


CONTEXT SWITCHING 
VOL. INVOL. 


PROCESS TOTAL SIGNALS 

PRIORITY I/O ACT. RECEIVED 


Total Avg. Total Avg. High Low Avg . 


0 

3 

0 

75 

0 

0 

9 

0 

0 

0 

0 

0 

861 

14 

0 

6 

0 

0 

0 

0 

0 

0 

437 

0 

0 

0 

162 

0 

0 

0 

0 

0 

0 

349 

35 

0 

3 

283 


0.0 

0 

0.0 

35 

0.0 

0 

0.0 

45 

0.0 

0 

0.0 

-25 

0.5 

0 

0.0 

35 

0.0 

0 

0.0 

44 

0.0 

0 

0.0 

45 

0.1 

0 

0.0 

46 

0.0 

0 

0.0 

46 

0.0 

0 

0.0 

45 

0.0 

0 

0.0 

46 

0.0 

0 

0.0 

45 

0.0 

0 

0.0 

45 

5.8 

79 

0.5 

48 

0.1 

0 

0.0 

45 

0.0 

0 

0.0 

45 

0.0 

0 

0.0 

45 

0.0 

0 

0.0 

46 

0.0 

0 

0.0 

45 

0.0 

0 

0.0 

46 

0.0 

0 

0.0 

45 

0.0 

0 

0.0 

49 

0.0 

0 

0.0 

45 

2.9 

0 

0.0 

45 

0.0 

0 

0.0 

45 

0.0 

0 

0.0 

45 

0.0 

0 

0.0 

47 

1.1 

0 

0.0 

49 

0.0 

0 

0.0 

46 

0.0 

0 

0.0 

46 

0.0 

0 

0.0 

44 

0.0 

0 

0.0 

49 

0.0 

0 

0.0 

48 

0.0 

0 

0.0 

44 

3.0 

254 

2.2 

50 

0.2 

433 

2.9 

53 

0.0 

0 

0.0 

46 

0.0 

10 

0.1 

45 

1.9 

311 

2.1 

47 


35 

35 

0 

0 

45 

45 

201 

255 

-25 

-25 

0 

0 

35 

35 

0 

0 

44 

44 

0 

0 

45 

45 

0 

1 

45 

45 

5574 

1998 

46 

46 

3 

0 

45 

45 

1 

1 

46 

46 

4 

0 

45 

45 

57 

33 

45 

45 

51 

33 

41 

43 

89 

30 

45 

45 

6 

0 

45 

45 

15 

1 

45 

45 

1697 

333 

46 

46 

4 

0 

45 

45 

3 

0 

46 

46 

5 

0 

45 

45 

11 

0 

49 

49 

4 

0 

45 

45 

7 

1 

45 

45 

5 

0 

45 

45 

24 

0 

45 

45 

0 

6 

47 

47 

11 

0 

45 

45 

75 

0 

46 

46 

1 

0 

46 

46 

0 

0 

44 

44 

0 

0 

49 

49 

3 

7 

48 

48 

10 

0 

44 

44 

6 

0 

44 

48 

31 

0 

44 

47 

8 

0 

45 

45 

1 

23 

44 

44 

3 

0 

45 

45 

230 

1 




stflmgctms22.A 


************************* ******************* 
***** process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 

******************************************** 


LogTime from: Thu Aug 16 16:14:55 1990 
to: Thu Aug 16 16:17:24 1990 
Host Id: aries 

CPU type: 68030 

number: 2 


COMMAND 

PROCESS 

ID. 

80% CPU UASAGE 

50% CPU 

UASAGE 

MEMORY 

COMSUMPTION 



Milli 
Sec . 

% of 
Total 

Milli 

Sec. 

% of 
Total 

Phya 

Virt 

Shr 

SWAPPER 

0 

0 

0.00 

0 

0.00 

0 

0 

0 . 0 

init 

1 

0 

0.00 

0 

0.00 

15 

20 

0 . 0 

PAGED AEMON 

2 

0 

0.00 

0 

0.00 

8 

2056 

0.0 

lwpl 

3 

0 

0.00 

0 

0.00 

8 

8 

0 . 0 

lwp2 

4 

0 

0.00 

0 

0.00 

8 

8 

0 . 0 

getty 

72 

0 

0.00 

0 

0.00 

12 

18 

0 . 0 

update 

34 

0 

0.00 

0 

0.00 

3 

8 

0 . 0 

getty 

71 

0 

0.00 

0 

0.00 

12 

18 

0 . 0 

getty 

73 

0 

0.00 

0 

0.00 

12 

18 

0 . 0 

errdemon 

50 

0 

0.00 

0 

0.00 

10 

16 

0.0 

cron 

54 

0 

0.00 

0 

0.00 

30 

36 

0 . 0 

Xgcm 

69 

0 

0.00 

0 

0.00 

170 

196 

0.0 

Xgcro 

70 

133 

6.65 

116 

5.80 

690 

1067 

0.0 

port map 

74 

0 

0.00 

0 

0.00 

17 

23 

0 . 0 

netd 

75 

0 

0.00 

0 

0.00 

24 

31 

0 . 0 

rwhod 

76 

0 

0.00 

0 

0.00 

24 

29 

0 . 0 

talkd 

77 

0 

0.00 

0 

0.00 

25 

32 

0 . 0 

rwalld 

78 

0 

0.00 

0 

0.00 

16 

22 

0 . 0 

rusersd 

79 

0 

0.00 

0 

0.00 

22 

29 

0 . 0 

timed 

80 

0 

0.00 

0 

0.00 

31 

39 

0 . 0 

xdm 

91 

0 

0.00 

0 

0.00 

104 

115 

2 . 0 

ypbind 

82 

0 

0.00 

0 

0.00 

18 

24 

0 . 0 

biod 

83 

0 

0.00 

0 

0.00 

11 

11 

0 . 0 

mountd 

84 

0 

0.00 

0 

0.00 

24 

31 

0 . 0 

csh 

122 

0 

0.00 

0 

0.00 

43 

50 

0 .0 

xdm 

86 

0 

0.00 

0 

0.00 

81 

92 

0 . 0 

nfsd 

87 

0 

0.00 

0 

0.00 

13 

19 

0 . 0 

xdm 

88 

0 

0.00 

0 

0.00 

82 

97 

2 . 0 

xdm 

89 

0 

0.00 

0 

0.00 

82 

97 

2 . 0 

xcterm 

121 

0 

0.00 

0 

0.00 

215 

228 

2 . 0 

xdm 

94 

0 

0.00 

0 

0.00 

105 

116 

0 . 0 

mwm 

107 

0 

0.00 

0 

0.00 

215 

226 

2 . 0 

csh 

111 

0 

0.00 

0 

0.00 

43 

50 

0.0 

go 

128 

0 

0.00 

0 

0.00 

34 

43 

0 . 0 

prm 

141 

84 

4.20 

83 

4.15 

54 

76 

0 . 0 

xcterm 

105 

0 

0.00 

0 

0.00 

212 

225 

2 . 0 

stf lmgc 

142 

200 

10.00 

167 

8.35 

142 

188 

2 . 0 

sleep 

144 

0 

0.00 

0 

0.00 

5 

13 

2.0 




stflmgctms22.A 


PROCESS 

ID . 


CONTEXT SWITCHING PROCESS TOTAL SIGNALS 

VOL. INVOL. PRIORITY I/O ACT. RECEIVED 



Total 

Avg . 

Total 

Avg . 

High 

Low 

> 

< 

<4 

1 



0 

0 

0.0 

0 

0.0 

35 

35 

35 

0 

0 

1 

0 

0.0 

0 

0.0 

45 

45 

45 

138 

13 

2 

0 

0.0 

0 

0.0 

-25 

-25 

-25 

0 

0 

3 

74 

0.5 

0 

0.0 

35 

35 

35 

0 

0 

4 

0 

0.0 

0 

0.0 

44 

44 

44 

0 

0 

72 

0 

0.0 

0 

0.0 

45 

45 

45 

0 

1 

34 

22 

0.1 

0 

0.0 

45 

45 

45 

219 

25 

71 

0 

0.0 

0 

0.0 

46 

46 

46 

3 

0 

73 

0 

0.0 

0 

0.0 

45 

45 

45 

1 

1 

50 

0 

0.0 

0 

0.0 

46 

46 

46 

4 

0 

54 

0 

0.0 

0 

0.0 

46 

46 

46 

5 

0 

69 

0 

0.0 

0 

0.0 

44 

44 

44 

51 

0 

70 

674 

4.5 

9 

0.1 

46 

41 

42 

15 

0 

74 

14 

0.1 

0 

0.0 

45 

45 

45 

6 

0 

75 

9 

0.1 

0 

0.0 

45 

44 

44 

9 

1 

76 

0 

0.0 

0 

0.0 

45 

45 

45 

39 

4 

77 

0 

0.0 

0 

0.0 

46 

46 

46 

4 

0 

78 

0 

0.0 

0 

0.0 

45 

45 

45 

3 

0 

79 

0 

0.0 

0 

0.0 

46 

46 

46 

5 

0 

80 

0 

0.0 

0 

0.0 

45 

45 

45 

6 

0 

91 

0 

0.0 

0 

0.0 

49 

49 

49 

4 

0 

82 

0 

0.0 

0 

0.0 

44 

44 

44 

7 

1 

83 

442 

3.0 

0 

0.0 

45 

45 

45 

5 

0 

84 

0 

0.0 

0 

0.0 

46 

46 

46 

6 

0 

122 

0 

0.0 

0 

0.0 

45 

45 

45 

0 

5 

86 

0 

0.0 

0 

0.0 

47 

47 

47 

11 

0 

87 

23 

0.2 

0 

0.0 

45 

45 

45 

7 

0 

88 

0 

0.0 

0 

0.0 

46 

46 

46 

0 

0 

89 

0 

0.0 

0 

0.0 

46 

46 

46 

0 

0 

121 

1 

0.0 

0 

0.0 

45 

44 

44 

1 

0 

94 

0 

0.0 

0 

0.0 

52 

52 

52 

3 

0 

107 

7 

0.0 

20 

0.1 

49 

45 

45 

15 

0 

111 

0 

0.0 

0 

0.0 

56 

56 

56 

4 

7 

128 

3 

0.0 

4 

0.0 

45 

45 

45 

0 

10 

141 

297 

2.0 

259 

1.7 

47 

45 

45 

226 

1 

105 

0 

0.0 

0 

0.0 

50 

50 

50 

17 

0 

142 

393 

3.1 

374 

3.0 

50 

46 

48 

1 

0 

144 

0 

0.0 

0 

0.0 

45 

45 

45 

0 

0 




stfloat6xlO.A 




***** Process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 
★**★★*****★***★***★★****★**★*★****★**★★***★★ 


LogTime from: Thu Aug 16 15:53:02 1990 
to: Thu Aug 16 15:55:31 1990 
Host Id: aries 

CPU type: 68030 

number: 2 


COMMAND 

PROCESS 

80% CPU 

UASAGE 

50% CPU 

UASAGE 

MEMORY 

COMSUMP T I ON 


ID. 









Milli 

% of 

Milli 

% of 





Sec . 

Total 

Sec . 

Total 

Phys 

Virt Shr 


SWAPPER 

0 

0 

0.00 

0 

0.00 

0 

0 

0.0 

init 

1 

0 

0.00 

0 

0.00 

15 

20 

0.0 

PAGED AEMON 

2 

0 

0.00 

0 

0.00 

8 

2056 

0.0 

lwpl 

3 

0 

0.00 

0 

0.00 

8 

8 

0.0 

lwp2 

4 

0 

0.00 

0 

0.00 

8 

8 

0.0 

getty 

72 

0 

0.00 

0 

0.00 

12 

18 

0.0 

update 

34 

0 

0.00 

0 

0.00 

3 

8 

0.0 

getty 

71 

0 

0.00 

0 

0.00 

12 

18 

0.0 

getty 

73 

0 

0.00 

0 

0.00 

12 

18 

0.0 

errdemon 

50 

0 

0.00 

0 

0.00 

10 

16 

0.0 

cron 

54 

0 

0.00 

0 

0.00 

31 

36 

0.0 

Xgcm 

69 

0 

0.00 

0 

0.00 

170 

196 

0.0 

Xgcm 

70 

150 

7.50 

116 

5.80 

503 

687 

0.0 

port map 

74 

0 

0.00 

0 

0.00 

17 

23 

0.0 

netd 

75 

0 

0.00 

0 

0.00 

25 

31 

0.0 

rwhod 

76 

0 

0.00 

0 

0.00 

24 

29 

0.0 

talkd 

77 

0 

0.00 

0 

0.00 

25 

32 

0.0 

rwalld 

78 

0 

0.00 

0 

0.00 

16 

22 

0.0 

rusersd 

79 

0 

0.00 

0 

0.00 

22 

29 

0.0 

timed 

80 

0 

0.00 

0 

0.00 

31 

39 

0.0 

xdm 

302 

0 

0.00 

0 

0.00 

105 

116 

0.0 

ypbind 

82 

0 

0.00 

0 

0.00 

18 

24 

0.0 

biod 

83 

17 

0.85 

16 

0.80 

11 

11 

0.0 

mount d 

84 

0 

0.00 

0 

0.00 

24 

31 

0.0 

xcterm 

326 

0 

0.00 

0 

0.00 

190 

226 

2.0 

xdm 

86 

0 

0.00 

0 

0.00 

81 

92 

0.0 

nfsd 

87 

0 

0.00 

0 

0.00 

13 

19 

0.0 

xdm 

88 

0 

0.00 

0 

0.00 

82 

97 

2.0 

xdm 

89 

0 

0.00 

0 

0.00 

82 

97 

2.0 

csh 

327 

0 

0.00 

0 

0.00 

43 

50 

0.0 

xdm 

94 

0 

0.00 

0 

0.00 

104 

115 

2.0 

xcterm 

310 

0 

0.00 

0 

0.00 

188 

224 

2.0 

mwm 

312 

0 

0.00 

0 

0.00 

204 

226 

2.0 

go 

346 

0 

0.00 

0 

0.00 

34 

43 

0.0 

csh 

316 

0 

0.00 

0 

0.00 

43 

50 

0.0 

prm 

377 

1000 

50.00 

316 

15.80 

78 

326 

0.0 

stfloat 

381 

233 

11.65 

200 

10.00 

142 

188 

2.0 

prm 

380 

83 

4.15 

67 

3.35 

59 

76 

2.0 

sleep 

382 

0 

0.00 

0 

0.00 

5 

13 

0.0 

stnofmt 

387 

383 

19.15 

0 

0.00 

141 

188 

2.0 

prm 

386 

0 

0.00 

0 

0.00 

50 

76 

2.0 





PROCESS 

ID. 


0 

1 

2 

3 

4 

72 
34 
71 

73 
50 
54 

69 

70 

74 

75 

76 

77 

78 

79 

80 
302 

82 

83 

84 

326 
86 

87 

88 
89 

327 
94 

310 

312 

346 

316 

377 

381 
380 

382 
387 
386 


stfloat6xlO.A 



CONTEXT SWITCHING 
VOL . INVOL . 


PROCESS TOTAL SIGNALS 

PRIORITY I/O ACT. RECEIVED 


Total Avg. Total 


0 0.0 0 

3 0.0 0 

0 0.0 0 

73 0.5 0 

0 0.0 0 

0 0.0 0 

31 0.2 4 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

830 5.6 127 

14 0.1 0 

0 0.0 0 

7 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

4 0.0 0 

0 0.0 0 

0 0.0 0 

444 3.0 0 

0 0.0 0 

15 0.1 31 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

3 0.0 52 

6 0.0 4 

0 0.0 0 

3 0.6 54 

476 4.5 380 

277 1.9 312 

13 0.3 8 

0 0.0 0 

0 0.0 0 


Avg . 

High 

Low 

Avg. 

0.0 

35 

35 

35 

0.0 

45 

45 

45 

0.0 

-25 

-25 

-25 

0.0 

35 

35 

35 

0.0 

44 

44 

44 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

47 

47 

47 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

46 

45 

45 

0.0 

40 

40 

40 

0.9 

48 

41 

42 

0.0 

45 

45 

45 

0.0 

45 

44 

44 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

51 

51 

51 

0.0 

44 

44 

44 

0.0 

46 

45 

45 

0.0 

44 

44 

44 

0.2 

46 

44 

45 

0.0 

48 

48 

48 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

44 

44 

44 

0.0 

44 

44 

44 

0.3 

47 

45 

45 

0.0 

46 

45 

45 

0.0 

52 

52 

52 

10.8 

61 

47 

51 

3.6 

52 

44 

48 

2.1 

47 

45 

45 

0.2 

45 

45 

45 

0.0 

48 

44 

45 

0.0 

50 

50 

50 


0 

284 

0 

0 

0 

0 

2216 

4 

1 

4 

29 

30 
99 

5 

22 

371 

4 
3 

5 

12 

12 

5 
15 

6 
3 

12 

22 

1 

0 

0 

2 

14 

8 

2 

9 

231 

30 

226 

0 

0 

1 


0 

59 

0 

0 

0 

1 

270 

0 

1 

0 

6 

4 

0 

0 

1 

45 


0 

0 

0 

0 

0 


1 

0 

0 

0 

0 

0 

0 

0 


18 

0 

0 

0 

32 

7 


1 

0 

1 

1 

0 

0 




stfloat9xl5.A 


★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★A 

***** Process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★a* 


LogTime from: Thu Aug 16 15:42:10 1990 
to: Thu Aug 16 15:44:40 1990 
Host Id: aries 

CPU type: 68030 

number: 2 


COMMAND 

PROCESS 

80% CPU 

UASAGE 


ID. 





Milli 

% of 



Sec . 

Total 


SWAPPER 

0 

0 

0.00 

init 

1 

0 

0.00 

PAGEDAEMON 

2 

0 

0.00 

lwpl 

3 

0 

0.00 

lwp2 

4 

0 

0.00 

getty 

72 

0 

0.00 

update 

34 

0 

0.00 

getty 

71 

0 

0.00 

getty 

73 

0 

0.00 

errdemon 

50 

0 

0.00 

cron 

54 

0 

0.00 

Xgcm 

69 

0 

0.00 

Xgcm 

70 

134 

6.70 

portmap 

74 

0 

0.00 

netd 

75 

0 

0.00 

rwhod 

76 

0 

0.00 

talkd 

77 

0 

0.00 

rwalld 

78 

0 

0.00 

rusersd 

79 

0 

0.00 

timed 

80 

0 

0.00 

xdm 

302 

0 

0.00 

ypbind 

82 

0 

0.00 

biod 

83 

17 

0.85 

mountd 

84 

0 

0.00 

xcterm 

326 

0 

0.00 

xdm 

86 

0 

0.00 

nf sd 

87 

0 

0.00 

xdm 

88 

0 

0.00 

xdm 

89 

0 

0.00 

csh 

327 

0 

0.00 

xdm 

94 

0 

0.00 

xcterm 

310 

0 

0.00 

mwm 

312 

0 

0.00 

go 

346 

0 

0.00 

csh 

316 

0 

0.00 

prm 

362 

100 

5.00 

stfloat 

366 

184 

9.20 

prm 

365 

100 

5.00 

sleep 

367 

0 

0.00 


50% CPU UASAGE MEMORY COMSUMPTION 


Milli 
Sec . 

% of 
Total 

Phys 

Virt 

Shr 

0 

0.00 

0 

0 

0.0 

0 

0.00 

15 

20 

0.0 

0 

0.00 

8 

2056 

0.0 

0 

0.00 

8 

8 

0.0 

0 

0.00 

8 

8 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

3 

8 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

10 

16 

0.0 

0 

0.00 

31 

36 

0.0 

0 

0.00 

170 

196 

0.0 

117 

5.85 

412 

559 

0.0 

0 

0.00 

17 

23 

0.0 

0 

0.00 

25 

31 

0.0 

0 

0.00 

24 

29 

0.0 

0 

0.00 

25 

32 

0.0 

0 

0.00 

16 

22 

0.0 

0 

0.00 

22 

29 

0.0 

0 

0.00 

31 

39 

0.0 

0 

0.00 

105 

116 

0.0 

0 

0.00 

18 

24 

0.0 

0 

0.00 

11 

11 

0.0 

0 

0.00 

24 

31 

0.0 

0 

0.00 

190 

226 

2.0 

0 

0.00 

81 

92 

0.0 

0 

0.00 

13 

19 

0.0 

0 

0.00 

82 

97 

2.0 

0 

0.00 

82 

97 

2.0 

0 

0.00 

43 

50 

0.0 

0 

0.00 

104 

115 

2.0 

0 

0.00 

188 

224 

2.0 

0 

0.00 

204 

226 

2.0 

0 

0.00 

34 

43 

0.0 

0 

0.00 

43 

50 

0.0 

99 

4.95 

81 

332 

0.0 

167 

8.35 

142 

188 

2.0 

83 

4.15 

59 

76 

2.0 

0 

0.00 

5 

13 

0.0 






stfloat9xl5.A 




PROCESS 

ID. 


0 

1 

2 

3 

4 

72 
34 
71 

73 
50 
54 

69 

70 

74 

75 

76 

77 

78 

79 
00 

302 

82 

83 

84 

326 
86 

87 

88 
89 

327 
94 

310 

312 

346 

316 

362 

366 
365 

367 


CONTEXT SWITCHING 
VOL. INVOL. 


PROCESS TOTAL SIGNALS 

PRIORITY I/O ACT. RECEIVED 


Total Avg. Total Avg. 


High Low Avg. 


0 0.0 0 
0 0.0 0 

0 0.0 0 

73 0.5 0 

0 0.0 0 

0 0.0 0 

11 0.1 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

690 4.6 33 

0 0.0 0 

0 0.0 0 

15 0.1 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

559 3.8 0 

0 0.0 0 

4 0.0 9 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

1 0.0 81 

3 0.0 5 

0 0.0 0 

81 2.0 93 

468 3.8 445 

268 1.8 372 

0 0.0 0 


0.0 

35 

35 

35 

0.0 

45 

45 

45 

0.0 

-25 

-25 

-25 

0.0 

35 

35 

35 

0.0 

44 

44 

44 

0.0 

45 

45 

45 

0.0 

45 

44 

44 

0.0 

47 

47 

47 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

40 

40 

40 

0.2 

48 

41 

44 

0.0 

45 

45 

45 

0.0 

44 

44 

44 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

51 

51 

51 

0.0 

44 

44 

44 

0.0 

45 

45 

45 

0.0 

44 

44 

44 

0.1 

45 

44 

44 

0.0 

48 

48 

48 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

44 

44 

44 

0.0 

44 

44 

44 

0.5 

47 

45 

45 

0.0 

46 

45 

45 

0.0 

52 

52 

52 

2.3 

72 

47 

48 

3.6 

54 

44 

51 

2.5 

49 

46 

47 

0.0 

45 

45 

45 


0 

278 

0 

0 

0 

0 

2074 

4 

1 

4 
19 
30 
81 

5 

18 

335 

4 
3 

5 

11 

12 

5 
15 

6 
3 

12 

19 

1 

0 

0 

2 

14 

8 

1 

9 

239 

30 

227 

0 


0 

54 

0 

0 

0 

1 

248 

0 

1 

0 

4 


4 

0 

0 

1 


41 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

18 


19 

7 

1 

0 

1 

0 



o o o 
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******************************************** 
***** process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 

******************************************** 



LogTime from: Fri Aug 17 08:35:34 1990 
to: Fri Aug 17 08:37:32 1990 
Host Id: aries 

CPU type: 68030 

number: 2 


COMMAND 

PROCESS 

ID. 

00% CPU 

UASAGE 

50% CPU 

UASAGE 

MEMORY 

COMSUMPTION 


Milli 

% of 

Milli 

% of 






Sec . 

Total 

Sec . 

Total 

Phys 

Virt 

Shr 

SWAPPER 

0 

0 

0.00 

0 

0.00 

0 

0 

0.0 

init 

1 

0 

0.00 

0 

0.00 

15 

20 

0.0 

PAGEDAEMON 

2 

0 

0.00 

0 

0.00 

8 

2056 

0.0 

Iwpl 

3 

0 

0.00 

0 

0.00 

8 

8 

0.0 

lwp2 

4 

0 

0.00 

0 

0.00 

8 

8 

0.0 

getty 

72 

0 

0.00 

0 

0.00 

12 

18 

0.0 

update 

34 

0 

0.00 

0 

0.00 

3 

8 

0.0 

getty 

71 

0 

0.00 

0 

0.00 

12 

18 

0.0 

getty 

73 

0 

0.00 

0 

0.00 

12 

18 

0.0 

errdemon 

50 

0 

0.00 

0 

0.00 

10 

16 

0.0 

cron 

54 

0 

0.00 

0 

0.00 

31 

36 

0.0 

Xgcm 

69 

0 

0.00 

0 

0.00 

171 

198 

0.0 

Xgcm 

70 

200 

10.00 

166 

0.30 

1850 

3136 

0.0 

port map 

74 

0 

0.00 

0 

0.00 

22 

29 

0.0 

netd 

75 

0 

0.00 

0 

0.00 

24 

31 

0.0 

rwhod 

76 

0 

0.00 

0 

0.00 

24 

29 

0.0 

tailed 

77 

0 

0.00 

0 

0.00 

25 

32 

0.0 

rwalld 

78 

0 

0.00 

0 

0.00 

16 

22 

0.0 

rusersd 

79 

0 

0.00 

0 

0.00 

22 

29 

0.0 

timed 

80 

0 

0.00 

0 

0.00 

31 

39 

0.0 

xdm 

91 

0 

0.00 

0 

0.00 

104 

115 

2.0 

ypbind 

82 

0 

0.00 

0 

0.00 

18 

24 

0.0 

biod 

83 

16 

0.80 

0 

0.00 

11 

11 

0.0 

mountd 

84 

0 

0.00 

0 

0.00 

25 

31 

0.0 

esh 

372 

0 

0.00 

0 

0.00 

43 

50 

0.0 

xdm 

86 

0 

0.00 

0 

0.00 

81 

92 

0.0 

nfsd 

87 

0 

0.00 

0 

0.00 

13 

19 

0.0 

xdm 

88 

0 

0.00 

0 

0.00 

82 

97 

2.0 

xdm 

89 

0 

0.00 

0 

0.00 

82 

97 

2.0 

xcterm 

371 

0 

0.00 

0 

0.00 

193 

227 

2.0 

esh 

361 

0 

0.00 

0 

0.00 

43 

50 

0.0 

xdm 

254 

0 

0.00 

0 

0.00 

105 

116 

0.0 

xcterm 

355 

0 

0.00 

0 

0.00 

190 

224 

2.0 

stingc 

401 

116 

5.80 

84 

4.20 

141 

188 

2.0 

mwm 

357 

0 

0.00 

0 

0.00 

204 

226 

2.0 

xcterm 

380 

0 

0.00 

0 

0.00 

190 

224 

2.0 

esh 

381 

0 

0.00 

0 

0.00 

43 

50 

0.0 

prm 

400 

100 

5.00 

83 

4.15 

67 

76 

2.0 

xcterm 

404 

67 

3.35 

33 

1.65 

190 

224 

2.0 

esh 

405 

0 

0.00 

0 

0.00 

43 

50 

2.0 

Is 

408 

0 

0.00 

0 

0.00 

19 

39 

2.0 

Is 

409 

0 

0.00 

0 

0.00 

43 

50 

2.0 

prm 

411 

67 

3.35 

0 

0.00 

80 

91 

2.0 








PROCESS 

ID. 


stingc9xl5.A 


CONTEXT SWITCHING PROCESS 

VOL. INVOL. PRIORITY 


Total Avg. Total 


0 

0 

1 

482 

2 

1 

3 

58539 

4 

1 

72 

14 

34 

5046 

71 

9 

73 

11 

50 

5 

54 

212 

69 

264 

70 

76881 

74 

898 

75 

2170 

76 

3693 

77 

35 

78 

41 

79 

65 

80 

2846 

91 

35 

82 

316 

83 

17382 

84 

119 

372 

141 

86 

25 

87 

1313 

88 

10 

89 

4 

371 

366 

361 

151 

254 

172 

355 

144 

401 

138 

357 

737 

380 

3 

381 

0 

400 

221 

404 

97 

405 

20 

408 

0 

409 

0 

411 

25 


0.0 

0 

4.1 

79 

0.0 

0 

496.1 

0 

0.0 

0 

0.1 

22 

42.8 

396 

0.1 

24 

0.1 

17 

0.0 

6 

1.8 

111 

2.2 

149 

651.5 

8198 

7.6 

107 

18.4 

105 

31.3 

80 

0.3 

30 

0.3 

32 

0.6 

51 

24.1 

56 

0.3 

95 

2.7 

65 

147.3 

14 

1.0 

30 

1.2 

187 

0.2 

46 

11.1 

16 

0.1 

60 

0.0 

6 

3.1 

1489 

1.3 

155 

1.5 

304 

1.2 

316 

2.1 

380 

6.2 

11593 

0.0 

16 

0.0 

0 

1.9 

326 

2.1 

321 

0.4 

22 

0.0 

0 

0.0 

0 

1.2 

85 


Avg . 

High 

Low 

Avg. 

0.0 

35 

35 

35 

0.7 

45 

45 

45 

0.0 

-25 

-25 

-25 

0.0 

35 

35 

35 

0.0 

44 

44 

44 

0.2 

45 

45 

45 

3.4 

46 

44 

45 

0.2 

46 

46 

46 

0.1 

45 

45 

45 

0.1 

46 

46 

46 

0.9 

45 

45 

45 

1.3 

40 

40 

40 

69.5 

49 

40 

42 

0.9 

45 

44 

44 

0.9 

45 

45 

45 

0.7 

45 

45 

45 

0.3 

46 

46 

46 

0.3 

45 

45 

45 

0.4 

46 

46 

46 

0.5 

45 

44 

44 

0.8 

49 

49 

49 

0.6 

45 

45 

45 

0.1 

45 

45 

45 

0.3 

45 

45 

45 

1.6 

45 

45 

45 

0.4 

47 

47 

47 

0.1 

45 

45 

45 

0.5 

46 

46 

46 

0.1 

46 

46 

46 

12.6 

44 

44 

44 

1.3 

49 

49 

49 

2.6 

48 

48 

48 

2.7 

44 

44 

44 

5.8 

47 

44 

46 

98.2 

52 

44 

49 

0.2 

44 

44 

44 

0.0 

47 

47 

47 

2.8 

46 

45 

45 

6.8 

50 

44 

45 

0.5 

52 

44 

45 

0.0 

48 

48 

48 

0.0 

45 

45 

45 

4.0 

48 

45 

46 


TOTAL 
I/O ACT. 


0 

197 

0 

0 

0 

0 

5449 

3 
1 

4 
57 
51 
82 

6 

15 

1671 

4 

3 

5 

11 

4 

7 

5 
24 

0 

11 

18 

1 

0 

0 

3 

10 

6 
31 

8 
0 
0 

181 

3 

1 

0 

0 

5 


SIGNALS 

RECEIVED 


0 

252 

0 

0 

0 

1 

1981 

0 

1 

0 

33 

32 

30 

0 

1 

330 

0 

0 

0 

0 

0 

1 

0 

0 

6 

0 

0 

0 

0 

0 

7 

0 

0 

0 

0 

0 

17 

1 

0 

5 

0 

0 

1 


stinmgc9xl5.A 


******************************************** 
***** Process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 

******************************************** 


LogTime from: Fri Aug 17 08:39:25 1990 
to: Fri Aug 17 08:41:54 1990 
Host Id: aries 

CPU type: 68030 

number: 2 


COMMAND PROCESS 80% CPU UASAGE 

ID. 

Milli % of 

Sec. Total 


SWAPPER 

0 

0 

0.00 

init 

1 

0 

0.00 

PAGEDAEMON 

2 

0 

0.00 

lwpl 

3 

0 

0.00 

lwp2 

4 

0 

0.00 

getty 

72 

0 

0.00 

update 

34 

0 

0 .00 

getty 

71 

0 

0.00 

getty 

73 

0 

0.00 

errdemon 

50 

0 

0.00 

cron 

54 

0 

0.00 

Xgcm 

69 

0 

0.00 

Xgcm 

70 

216 

10.80 

portmap 

74 

0 

0.00 

netd 

75 

0 

0.00 

rwhod 

76 

0 

0.00 

talkd 

77 

0 

0.00 

rwalld 

78 

0 

0.00 

rusersd 

79 

0 

0.00 

timed 

80 

0 

0.00 

xdm 

91 

0 

0.00 

ypbind 

82 

0 

0.00 

biod 

83 

17 

0.85 

mount d 

84 

0 

0.00 

csh 

372 

0 

0.00 

xdm 

86 

0 

0.00 

nf sd 

87 

0 

0.00 

xdm 

88 

0 

0.00 

xdm 

89 

0 

0.00 

xcterm 

371 

0 

0.00 

csh 

361 

0 

0.00 

xdm 

254 

0 

0.00 

xcterm 

355 

0 

0.00 

stinmgc 

421 

116 

5.80 

mwm 

357 

0 

0.00 

csh 

405 

0 

0.00 

xcterm 

404 

0 

0.00 

prm 

420 

84 

4.20 


50% CPU UASAGE MEMORY COMSUMPTION 


Milli 
Sec . 

% of 
Total 

Phys 

Virt 

Shr 

0 

0.00 

0 

0 

0.0 

0 

0.00 

15 

20 

0.0 

0 

0.00 

8 

2056 

0.0 

0 

0.00 

8 

8 

0.0 

0 

0.00 

8 

8 

0.0 

0 

0.00 

12 

18 

0.0 

0 

o.oa 

3 

8 

0.0 

0 

0.00 . 

12 

18 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

10 

16 

0.0 

0 

0.00 

31 

36 

0.0 

0 

0.00 

171 

198 

0.0 

0 

0.00 

1858 

3136 

0.0 

0 

0.00 

22 

29 

0.0 

0 

0.00 

24 

31 

0.0 

0 

0.00 

24 

29 

0.0 

0 

0.00 

25 

32 

0.0 

0 

0.00 

16 

22 

0.0 

0 

0.00 

22 

29 

0.0 

0 

0.00 

31 

39 

0.0 

0 

0.00 

104 

115 

2.0 

0 

0.00 

18 

24 

0.0 

0 

0.00 

11 

11 

0.0 

0 

0.00 

25 

31 

0.0 

0 

0.00 

43 

50 

0.0 

0 

0.00 

81 

92 

0.0 

0 

0.00 

13 

19 

0.0 

0 

0.00 

82 

97 

2.0 

0 

0.00 

82 

97 

2.0 

0 

0.00 

193 

227 

2.0 

0 

0.00 

43 

50 

0.0 

0 

0.00 

105 

116 

0.0 

0 

0.00 

190 

224 

2.0 

100 

5.00 

141 

188 

2.0 

0 

0.00 

204 

226 

2.0 

0 

0.00 

43 

50 

2.0 

0 

0.00 

190 

224 

2.0 

83 

4.15 

54 

76 

2.0 





PROCESS 

ID. 


0 

1 

2 

3 

4 

72 
34 
71 

73 
50 
54 

69 

70 

74 

75 

76 

77 

78 

79 

80 
91 
82 

83 

84 
372 

86 

87 

88 
89 

371 

361 

254 

355 

421 

357 

405 

404 

420 


stinmgc9xl5.A 


CONTEXT SWITCHING PROCESS 

VOL. INVOL. PRIORITY 


Total Avg. Total 


0 0.0 0 

3 0.0 0 

0 0.0 0 

73 0.5 0 

0 0.0 0 

0 0.0 0 

29 0.2 4 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

626 4.2 490 

0 0.0 0 

9 0.1 0 

8 0.1 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

4 0.0 0 

0 0.0 0 

0 0.0 0 

438 2.9 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

0 0.0 0 

266 4.0 401 

35 0.2 451 

2 0.0 0 

3 0.0 6 

279 1.9 348 


Avg. 

High 

Low 

Avg. 

0.0 

35 

35 

35 

0.0 

45 

45 

45 

0.0 

-25 

-25 

-25 

0.0 

35 

35 

35 

0.0 

44 

44 

44 

0.0 

45 

45 

45 

0.0 

46 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

45 

40 

43 

3.3 

52 

40 

44 

0.0 

44 

44 

44 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

45 

45 

45 

0.0 

49 

49 

49 

0.0 

45 

45 

45 

0.0 

46 

45 

45 

0.0 

45 

45 

45 

0.0 

45 

45 

45 

0.0 

47 

47 

47 

0.0 

45 

45 

45 

0.0 

46 

46 

46 

0.0 

46 

46 

46 

0.0 

44 

44 

44 

0.0 

49 

49 

49 

0.0 

48 

48 

48 

0.0 

44 

44 

44 

6.1 

49 

44 

47 

3.0 

53 

45 

46 

0.0 

46 

45 

45 

0.0 

45 

45 

45 

2.3 

47 

45 

45 


TOTAL SIGNALS 
I/O ACT. RECEIVED 


0 

199 

0 

0 

0 

0 

5511 

3 
1 

4 
57 
51 
83 

6 

15 

1684 

4 

3 

5 

11 

4 

7 

5 
24 

0 

11 

18 

1 

0 

0 

3 

10 

6 
31 

8 
1 
3 

227 


0 

254 

0 

0 

0 

1 

1990 

0 

1 

0 

33 

33 

30 

0 

1 

332 

0 

0 

0 

0 

0 

1 

0 

0 

6 

0 

0 

0 

0 

0 

7 

0 

0 

0 

0 

15 

0 

1 





stint9xl5.A 


******p c oces3 Resource Monitor Phase 2 ***** 
***** Analysis Report ************* 



LogTime 

Host 

CPU 


from: 
to : 
Id: 
type: 
number : 


Thu Aug 16 15:36:20 1990 
Thu Aug 16 15:38:49 1990 
aries 
68030 
2 


COMMAND 


PROCESS 

ID. 


80% CPU U AS AGE 50% CPU U AS AGE MEMORY COMSUMPTION 


Milli 
Sec . 


% of 
Total 


Milli 
Sec . 


% of 
Total 


Phys Virt Shr 


SWAPPER 
init 
PAGEDAEMON 
lwpl 
lwp2 
getty 
update 
getty 
getty 
errdemon 
cron 
Xgcm 
Xgcm 
portmap 
netd 
rwhod 
talkd 
rwalld 
rusersd 
timed 
xdm 
ypbind 
biod 
mount d 
xcterm 
xdm 
nf sd 
xdm 
xdm 
csh 
xdm 
xcterm 
mwm 
go 
csh 
stint 
prm 
go 
go 
prm 


0 

1 

2 

3 

4 

72 
34 
71 

73 
50 
54 

69 

70 

74 

75 

76 

77 

78 

79 

80 
302 

82 

83 

84 
326 

66 

87 

88 
89 

327 

94 

310 

312 

346 

316 

357 
356 

358 
360 

359 



0.00 

0 

0.00 

0 

0 

0.0 

0 .00 

0 

0.00 

15 

20 

0.0 

0.00 

0 

0.00 

8 

2056 

0.0 

0.00 

0 

0.00 

8 

8 

0.0 

0.00 

0 

0.00 

8 

8 

0.0 

0.00 

0 

0.00 

12 

18 

0.0 

0.00 

0 

0.00 

3 

8 

0 . 0 

0.00 

0 

0.00 

12 

18 

0.0 

0.00 

0 

0.00 

12 

18 

0.0 

0.00 

0 

0.00 

10 

16 

0.0 

0 . 00 

0 

0.00 

31 

36 

0.0 

0.00 

0 

0.00 

170 

196 

0.0 

11.65 

183 

9.15 

412 

559 

0.0 

0.00 

0 

0.00 

17 

23 

0.0 

0.00 

0 

0.00 

25 

31 

0.0 

0.00 

0 

0.00 

24 

29 

0 . 0 

0.00 

0 

0.00 

25 

32 

0.0 

0.00 

0 

0.00 

16 

22 

0.0 

0.00 

0 

0.00 

22 

29 

0.0 

0.00 

0 

0.00 

31 

39 

0.0 

0.00 

0 

0.00 

105 

116 

0.0 

0.00 

0 

0.00 

18 

24 

0.0 

0.85 

0 

0.00 

11 

11 

0.0 

0.00 

0 

0.00 

24 

31 

0.0 

0.00 

0 

0.00 

190 

226 

2.0 

0.00 

0 

0.00 

61 

92 

0.0 

0.00 

0 

0.00 

13 

19 

0.0 

0.00 

0 

0.00 

82 

97 

2.0 

0.00 

0 

0.00 

82 

97 

2.0 

0.00 

0 

0.00 

43 

50 

0.0 

0.00 

0 

0.00 

104 

115 

2.0 

0.00 

0 

0.00 

188 

224 

2.0 

0.00 

0 

0.00 

204 

226 

2.0 

0.00 

0 

0.00 

34 

43 

0.0 

0.00 

0 

0.00 

43 

50 

0.0 

5.00 

67 

3.35 

142 

188 

2.0 

4.20 

83 

4.15 

54 

76 

0 .0 

0.00 

0 

0.00 

34 

43 

2.0 

5.05 

67 

3.35 

178 

188 

2.0 

4.15 

67 

3.35 

54 

76 

0.0 




stint9xl5.A 


PROCESS 

ID. 


CONTEXT SWITCHING PROCESS 

VOL. INVOL. PRIORITY 


0 

1 

2 

3 

4 

72 
34 
71 

73 
50 
54 

69 

70 

74 

75 

76 

77 

78 

79 

80 
302 

82 

83 

84 

326 
86 

87 

88 
89 

327 
94 

310 

312 

346 

316 

357 
356 

358 
360 

359 


Total 


0 

0 

0 

73 

0 

0 

26 

0 

0 

0 

0 

0 

793 

0 

0 

8 

0 

0 

0 

17 

0 

0 

696 

0 

3 

0 

22 

0 

0 

0 

0 

0 

14 

0 

0 

137 

299 

13 

313 

66 


Avg. 


0.0 
0.0 
0.0 
0.5 
0.0 
0.0 
0.2 
0.0 
0.0 
0.0 
0.0 
0.0 
5.3 
0.0 
0.0 
0.1 
0.0 
0.0 
0.0 
0 . 1 
0.0 
0.0 
4.7 
0.0 
0.0 
0.0 
0.1 
0.0 
0.0 
0.0 
0.0 
0.0 
0.1 
0.0 
0.0 
1.7 
2.0 
0.3 
10.4 
2.2 


Total 

Avg . 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

2 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

53 

0.4 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

4 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

155 

1.0 

0 

0.0 

0 

0.0 

333 

4.2 

274 

1.8 

6 

0.2 

115 

3.8 

65 

2.2 


High 

Low 

Avg. 

35 

35 

35 

45 

45 

45 

-25 

-25 

-25 

35 

35 

35 

44 

44 

44 

45 

45 

45 

45 

44 

44 

47 

47 

47 

45 

45 

45 

46 

46 

46 

45 

45 

45 

40 

40 

40 

47 

40 

43 

45 

45 

45 

44 

44 

44 

45 

45 

45 

45 

45 

45 

45 

45 

45 

45 

45 

45 

45 

44 

44 

51 

51 

51 

44 

44 

44 

47 

45 

45 

44 

44 

44 

45 

44 

44 

48 

48 

48 

45 

45 

45 

46 

46 

46 

46 

46 

46 

45 

45 

45 

44 

44 

44 

44 

44 

44 

48 

45 

46 

46 

45 

45 

52 

52 

52 

48 

44 

46 

48 

45 

45 

45 

45 

45 

54 

45 

47 

48 

45 

46 


TOTAL SIGNALS 
I/O ACT. RECEIVED 


0 

276 

0 

0 

0 

0 

2000 

4 

1 

4 
19 
30 
79 

5 

16 

314 

4 
3 

5 

11 

12 

5 
15 

6 
3 

12 

19 

1 

0 

0 

2 

14 

8 

0 

9 

30 

227 

0 

145 

41 
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******************************************** 
***** process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 

******************************************** 



LogTime from: Thu Aug 16 15:30:51 1990 
to: Thu Aug 16 15:33:20 1990 
Host Id: aries 

CPU type: 68030 

number: 2 


COMMAND 

PROCESS 

<=“% CPU 

U AS AGE 


ID. 





Milli 

% of 



Sec . 

Total 


SWAPPER 

0 

0 

0.00 

init 

1 

0 

0.00 

PAGEDAEMON 

2 

0 

0.00 

lwpl 

3 

0 

0.00 

lwp2 

4 

0 

0.00 

getty 

72 

0 

0.00 

update 

34 

0 

0.00 

getty 

71 

0 

0.00 

getty 

73 

0 

0.00 

errdemon 

50 

0 

0.00 

cron 

54 

0 

0.00 

Xgcm 

69 

0 

0.00 

Xgcm 

70 

117 

5.85 

port map 

74 

0 

0.00 

netd 

75 

0 

0.00 

rwhod 

76 

0 

0.00 

talkd 

77 

0 

0.00 

rwalld 

78 

0 

0.00 

rusersd 

79 

0 

0.00 

timed 

80 

0 

0.00 

xdm 

302 

0 

0.00 

ypbind 

82 

0 

0.00 

biod 

83 

17 

0.85 

mountd 

84 

0 

0.00 

xcterm 

326 

0 

0.00 

xdm 

86 

0 

0.00 

nf sd 

87 

0 

0.00 

xdm 

88 

0 

0.00 

xdm 

89 

0 

0.00 

csh 

327 

0 

0.00 

xdm 

94 

0 

0.00 

xcterm 

310 

0 

0.00 

mwm 

312 

0 

0.00 

go 

346 

0 

0.00 

csh 

316 

0 

0.00 

stnfgc 

351 

34 

1.70 

prm 

350 

83 

4.15 

sleep 

352 

0 

0.00 


50% CPU U AS AGE MEMORY COMSUMPTION 


Milli 
Sec . 

% of 
Total 

Phys 

Virt 

Shr 

0 

0.00 

0 

0 

0.0 

0 

0.00 

15 

20 

0.0 

0 

0.00 

8 

2056 

0.0 

0 

0.00 

8 

8 

0.0 

0 

0.00 

8 

8 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00. 

3 

8 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

10 

16 

0.0 

0 

0.00 

31 

36 

0.0 

0 

0.00 

170 

196 

0.0 

101 

5.05 

412 

559 

0.0 

0 

0.00 

17 

23 

0.0 

0 

0.00 

25 

31 

0.0 

0 

0.00 

24 

29 

0.0 

0 

0.00 

25 

32 

0.0 

0 

0.00 

16 

22 

0.0 

0 

0.00 

22 

29 

0.0 

0 

0.00 

31 

39 

0.0 

0 

0.00 

105 

116 

0.0 

0 

0.00 

18 

24 

0.0 

0 

0.00 

11 

11 

0.0 

0 

0.00 

24 

31 

0.0 

0 

0.00 

190 

226 

2.0 

0 

0.00 

81 

92 

0.0 

0 

0.00 

13 

19 

0.0 

0 

0.00 

82 

97 

2.0 

0 

0.00 

82 

97 

2.0 

0 

0.00 

43 

50 

0.0 

0 

0.00 

104 

115 

2.0 

0 

0.00 

188 

224 

2.0 

0 

0.00 

204 

226 

2.0 

0 

0.00 

34 

43 

0.0 

0 

0.00 

43 

50 

0.0 

33 

1.65 

141 

188 

2.0 

67 

3.35 

54 

76 

0.0 

0 

0.00 

5 

13 

2.0 




stnfgc9xl5.A 




PROCESS 

ID . 


0 

1 

2 

3 

4 

72 
34 
71 

73 
50 
54 

69 

70 

74 

75 

76 

77 

78 

79 

80 
302 

82 

83 

84 

326 
86 

87 

88 
89 

327 
94 

310 

312 

346 

316 

351 
350 

352 


CONTEXT SWITCHING 
VOL. INVOL . 


Total 

Avg . 

Total 

Avg . 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

72 

0.5 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

19 

0.1 

2 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

735 

4.9 

6 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

3 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

4 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

444 

3.0 

0 

0.0 

0 

0.0 

0 

0.0 

1 

0.0 

2 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

0 

0.0 

4 

0.0 

4 

0.0 

3 

0.0 

3 

0.0 

0 

0.0 

0 

0.0 

364 

3.0 

110 

0.9 

293 

2.0 

336 

2.3 

13 

0.5 

4 

0.1 


PROCESS TOTAL SIGNALS 

PRIORITY I/O ACT. RECEIVED 


High 

Low 

Avg . 



35 

35 

35 

0 

0 

45 

45 

45 

274 

52 

-25 

-25 

-25 

0 

0 

35 

35 

35 

0 

0 

44 

44 

44 

0 

0 

45 

45 

45 

0 

1 

46 

45 

45 

1925 

226 

47 

47 

47 

4 

0 

45 

45 

45 

1 

1 

46 

46 

46 

4 

0 

45 

45 

45 

19 

4 

40 

40 

40 

30 

3 

45 

41 

42 

76 

0 

45 

45 

45 

5 

0 

45 

45 

45 

14 

1 

45 

45 

45 

302 

37 

45 

45 

45 

4 

0 

45 

45 

45 

3 

0 

45 

45 

45 

5 

0 

45 

45 

45 

10 

0 

51 

51 

51 

12 

0 

44 

44 

44 

5 

1 

46 

45 

45 

15 

0 

44 

44 

44 

6 

0 

46 

44 

45 

3 

0 

48 

48 

48 

12 

0 

45 

45 

45 

16 

0 

46 

46 

46 

1 

0 

46 

46 

46 

0 

0 

45 

45 

45 

0 

18 

44 

44 

44 

2 

0 

44 

44 

44 

14 

0 

46 

45 

45 

8 

0 

46 

45 

45 

0 

4 

52 

52 

52 

9 

7 

48 

44 

45 

30 

0 

47 

45 

45 

226 

1 

45 

45 

45 

0 

0 


stnfmgc9xl5.A 

******************************************** 
***** Process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 

******************************************** 


LogTime from: Thu Aug 16 15:33:35 1990 
to: Thu Aug 16 15:36:05 1990 
Host id: aries 

CPU type: 68030 

number: 2 


COMMAND 

PROCESS 

80% CPU 

UASAGE 


ID. 





Milli 

% of 



Sec . 

Total 


SWAPPER 

0 

0 

0.00 

init 

1 

0 

0.00 

PAGEDAEMON 

2 

0 

0.00 

lwpl 

3 

0 

0.00 

lwp2 

4 

0 

0.00 

getty 

72 

0 

0.00 

update 

34 

0 

0.00 

getty 

71 

0 

0.00 

getty 

73 

0 

0.00 

errdemon 

50 

0 

0.00 

cron 

54 

0 

0.00 

Xgcm 

69 

0 

0.00 

Xgcm 

70 

150 

7.50 

portmap 

74 

0 

0.00 

netd 

75 

0 

0.00 

rwhod 

76 

0 

0.00 

talkd 

77 

0 

0.00 

rwalld 

78 

0 

0.00 

rusersd 

79 

0 

0.00 

timed 

80 

0 

0.00 

xdm 

302 

0 

0.00 

ypbind 

82 

0 

0.00 

biod 

83 

17 

0.85 

mountd 

84 

0 

0.00 

xcterxn 

326 

0 

0.00 

xdm 

86 

0 

0.00 

nf sd 

87 

0 

0.00 

xdm 

88 

0 

0.00 

xdm 

89 

0 

0.00 

csh 

327 

0 

0.00 

xdm 

94 

0 

0.00 

xcterm 

310 

0 

0.00 

mwm 

312 

0 

0.00 

go 

346 

0 

0.00 

csh 

316 

0 

0.00 

prm 

353 

100 

5.00 

stnfmgc 

354 

34 

1.70 

sleep 

355 

0 

0.00 


50% CPU UASAGE MEMORY COMSUMPTION 


Milli 

% of 




Sec . 

Total 

Phys 

Virt 

Shr 

0 

0.00 

0 

0 

0.0 

0 

0.00 

15 

20 

0.0 

0 

0.00 

8 

2056 

0.0 

0 

0.00 

8 

8 

0.0 

0 

0.00 

8 

8 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

3 

8 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

10 

16 

0.0 

0 

0.00 

31 

36 

0.0 

0 

0.00 

170 

196 

0.0 

133 

6.65 

412 

559 

0.0 

0 

0.00 

17 

23 

0.0 

0 

0.00 

25 

31 

0.0 

0 

0.00 

24 

29 

0.0 

0 

0.00 

25 

32 

0.0 

0 

0.00 

16 

22 

0.0 

0 

0.00 

22 

29 

0.0 

0 

0.00 

31 

39 

0.0 

0 

0.00 

105 

116 

0.0 

0 

0.00 

18 

24 

0.0 

0 

0.00 

11 

11 

0.0 

0 

0.00 

24 

31 

0.0 

0 

0.00 

190 

226 

2.0 

0 

0.00 

81 

92 

0.0 

0 

0.00 

13 

19 

0.0 

0 

0.00 

82 

97 

2.0 

0 

0.00 

82 

97 

2.0 

0 

0.00 

43 

50 

0.0 

0 

0.00 

104 

115 

2.0 

0 

0.00 

188 

224 

2.0 

0 

0.00 

204 

226 

2.0 

0 

0.00 

34 

43 

0.0 

0 

0.00 

43 

50 

0.0 

83 

4.15 

54 

76 

0.0 

33 

1.65 

141 

188 

2.0 

0 

0.00 

5 

13 

2.0 



stnfmgc9xl5.A 



PROCESS 

ID. 


CONTEXT SWITCHING 
VOL . INVOL . 


PROCESS 

PRIORITY 


TOTAL 
I/O ACT. 


SIGNALS 

RECEIVED 



Total 

Avg . 

Total 

Avg, 

High 

Low 

Avg. 



0 

0 

0.0 

0 

0.0 

35 

35 

35 

0 

0 

1 

0 

0.0 

0 

0.0 

45 

45 

45 

276 

53 

2 

0 

0.0 

0 

0.0 

-25 

-25 

-25 

0 

0 

3 

72 

0.5 

0 

0.0 

35 

35 

35 

0 

0 

4 

0 

0.0 

0 

0.0 

44 

44 

44 

0 

0 

72 

0 

0.0 

0 

0.0 

45 

45 

45 

0 

1 

34 

29 

0.2 

0 

0.0 

46 

44 

45 

1955 

231 

71 

0 

0.0 

0 

0.0 

47 

47 

47 

4 

0 

73 

0 

0.0 

0 

0.0 

45 

45 

45 

1 

1 

50 

0 

0.0 

0 

0.0 

46 

46 

46 

4 

0 

54 

0 

0.0 

0 

0.0 

45 

45 

45 

19 

4 

69 

0 

0.0 

0 

0.0 

40 

40 

40 

30 

3 

70 

747 

5.0 

17 

0.1 

47 

40 

42 

77 

0 

74 

0 

0.0 

0 

0.0 

45 

45 

45 

5 

0 

75 

11 

0.1 

0 

0.0 

45 

44 

44 

16 

1 

76 

0 

0.0 

0 

0.0 

45 

45 

45 

306 

38 

77 

0 

0.0 

0 

0.0 

45 

45 

45 

4 

0 

78 

0 

0.0 

0 

0.0 

45 

45 

45 

3 

0 

79 

0 

0.0 

0 

0.0 

45 

45 

45 

5 

0 

80 

0 

0.0 

0 

0.0 

45 

45 

45 

10 

0 

302 

0 

0.0 

0 

0.0 

51 

51 

51 

12 

0 

82 

0 

0.0 

0 

0.0 

44 

44 

44 

5 

1 

83 

443 

3.0 

0 

0.0 

45 

45 

45 

15 

0 

84 

0 

0.0 

0 

0.0 

44 

44 

44 

6 

0 

326 

2 

0.0 

10 

0.1 

45 

44 

44 

3 

0 

86 

0 

0.0 

0 

0.0 

48 

48 

48 

12 

0 

87 

0 

0.0 

0 

0.0 

45 

45 

45 

16 

0 

88 

0 

0.0 

0 

0.0 

46 

46 

46 

1 

0 

89 

0 

0.0 

0 

0.0 

46 

46 

46 

0 

0 

327 

0 

0.0 

0 

0.0 

45 

45 

45 

0 

18 

94 

0 

0.0 

0 

0.0 

44 

44 

44 

2 

0 

310 

0 

0.0 

0 

0.0 

44 

44 

44 

14 

0 

312 

4 

0.0 

4 

0.0 

49 

45 

45 

8 

0 

346 

0 

0.0 

0 

0.0 

46 

45 

45 

0 

7 

316 

0 

0.0 

0 

0.0 

52 

52 

52 

9 

7 

353 

297 

2.0 

364 

2.4 

47 

45 

45 

226 

1 

354 

347 

2.9 

118 

1.0 

47 

44 

45 

30 

0 

355 

13 

0.5 

4 

0.1 

45 

45 

45 

0 

0 



stnofmt6xlO.A 


********** 




***** Process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 
******************************************** 


LogTime from: Fri Aug 17 10:17:35 1990 
to: Fri Aug 17 10:20:04 1990 
Host Id: aries 

CPU type: 68030 

number: 2 


COMMAND 

PROCESS 80% CPU 
ID. 

UASAGE 50% CPU 

UASAGE MEMORY 

COMSUMPTION 


Milli 

% of Milli 

% of 





Sec . 

Total Sec. 

Total 

Phys 

Virt 

Shr 

SWAPPER 

0 

0 

0.00 

0 

0.00 

0 

0 

0.0 

init 

1 

0 

0.00 

0 

0.00 

15 

20 

0.0 

PAGED AEMON 

2 

0 

0.00 

0 

0.00 

8 

2056 

0.0 

lwpl 

3 

0 

0.00 

0 

0.00 

8 

8 

0.0 

lwp2 

4 

0 

0.00 

0 

0.00 

8 

8 

0.0 

getty 

72 

0 

0.00 

0 

0.00 

12 

18 

0.0 

update 

34 

0 

0.00 

0 

0.00 

3 

8 

0.0 

csh 

71 

0 

0.00 

0 

0.00 

41 

50 

0.0 

getty 

73 

0 

0.00 

0 

0.00 

12 

18 

0.0 

errdemon 

50 

0 

0.00 

0 

0.00 

10 

16 

0 . 0 

cron 

54 

0 

0.00 

0 

0.00 

31 

36 

0.0 

Xgcm 

69 

0 

0.00 

0 

0.00 

171 

198 

0.0 

Xgcm 

70 

133 

6.65 

117 

5.85 

1955 

3286 

0.0 

portmap 

74 

0 

0.00 

0 

0.00 

22 

29 

0.0 

netd 

75 

0 

0.00 

0 

0.00 

24 

31 

0 . 0 

rwhod 

76 

0 

0.00 

0 

0.00 

24 

29 

0.0 

tailed 

77 

0 

0.00 

0 

0.00 

25 

32 

0.0 

rwalld 

78 

0 

0.00 

0 

0.00 

16 

22 

0.0 

rusersd 

79 

0 

0.00 

0 

0.00 

22 

29 

0.0 

timed 

80 

0 

0.00 

0 

0.00 

31 

39 

0.0 

xdm 

91 

0 

0.00 

0 

0.00 

104 

115 

2.0 

ypbind 

82 

0 

0.00 

0 

0.00 

18 

24 

0.0 

biod 

83 

16 

0.80 

0 

0.00 

11 

11 

0.0 

mount d 

84 

0 

0.00 

0 

0.00 

25 

31 

0.0 

csh 

372 

0 

0.00 

0 

0.00 

43 

50 

0.0 

xdm 

86 

0 

0.00 

0 

0.00 

81 

92 

0.0 

nfsd 

87 

0 

0.00 

0 

0.00 

13 

19 

0.0 

xdm 

88 

0 

0.00 

0 

0.00 

82 

97 

2.0 

xdm 

89 

0 

0.00 

0 

0.00 

82 

97 

2.0 

xcterm 

371 

0 

0.00 

0 

0.00 

193 

227 

2.0 

csh 

361 

0 

0.00 

0 

0.00 

43 

50 

0.0 

xdm 

254 

0 

0.00 

0 

0.00 

105 

116 

0.0 

xcterm 

355 

0 

0.00 

0 

0.00 

190 

224 

2.0 

stnofmt 

504 

49 

2.45 

33 

1.65 

143 

188 

2.0 

mwm 

357 

0 

0.00 

0 

0.00 

209 

231 

2.0 

csh 

405 

0 

0.00 

0 

0.00 

43 

50 

2.0 

xcterm 

404 

0 

0.00 

0 

0.00 

194 

228 

2.0 

csh 

484 

0 

0.00 

0 

0.00 

43 

50 

2.0 

prm 

503 

100 

5.00 

84 

4.20 

54 

76 

0.0 

xcterm 

483 

0 

0.00 

0 

o 

o 

o 

190 

224 

2.0 





stnofmt6xlO.A 


PROCESS 

ID. 


CONTEXT SWITCHING PROCESS TOTAL SIGNALS 

VOL. INVOL. PRIORITY I/O ACT. RECEIVED 



Total 

Avg. 

Total 

Avg. 

High 

Low 

Avg. 



0 

0 

0.0 

0 

0.0 

35 

35 

35 

0 

0 

1 

0 

0.0 

0 

0.0 

45 

45 

45 

305 

281 

2 

0 

0.0 

0 

0.0 

-25 

-25 

-25 

0 

0 

3 

73 

0.5 

0 

0.0 

35 

35 

35 

0 

0 

4 

0 

0.0 

0 

0.0 

44 

44 

44 

0 

0 

72 

0 

0.0 

0 

0.0 

45 

45 

45 

0 

1 

34 

32 

0.2 

2 

0.0 

45 

45 

45 

7189 

2185 

71 

0 

0.0 

0 

0.0 

45 

45 

45 

19 

17 

73 

0 

0.0 

0 

0.0 

45 

45 

45 

1 

1 

50 

0 

0.0 

0 

0.0 

46 

46 

46 

4 

0 

54 

0 

0.0 

0 

0.0 

45 

45 

45 

72 

37 

69 

0 

0.0 

0 

0.0 

40 

40 

40 

51 

36 

70 

748 

5.0 

6 

0.0 

43 

40 

42 

96 

30 

74 

0 

0.0 

0 

0.0 

45 

45 

45 

6 

0 

75 

0 

0.0 

0 

0.0 

45 

45 

45 

15 

1 

76 

0 

0.0 

0 

0.0 

45 

45 

45 

1915 

364 

77 

0 

0.0 

0 

0.0 

46 

46 

46 

4 

0 

78 

0 

0.0 

0 

0.0 

45 

45 

45 

3 

0 

79 

0 

0.0 

0 

0.0 

46 

46 

46 

5 

0 

80 

13 

0.1 

0 

0.0 

45 

44 

44 

18 

0 

91 

0 

0.0 

0 

0.0 

49 

49 

49 

4 

0 

82 

0 

0.0 

0 

0.0 

45 

45 

45 

7 

3 

83 

438 

2.9 

0 

0.0 

46 

45 

45 

5 

0 

84 

0 

0.0 

0 

0.0 

45 

45 

45 

24 

0 

372 

0 

0.0 

0 

0.0 

45 

45 

45 

0 

6 

86 

0 

0.0 

0 

0.0 

47 

47 

47 

11 

0 

87 

5 

0.0 

0 

0.0 

45 

45 

45 

380 

0 

88 

0 

0.0 

0 

0.0 

46 

46 

46 

1 

0 

89 

0 

0.0 

0 

0.0 

46 

46 

46 

0 

0 

371 

0 

0.0 

0 

0.0 

44 

44 

44 

0 

0 

361 

0 

0.0 

0 

0.0 

49 

49 

49 

3 

7 

254 

0 

0.0 

0 

0.0 

48 

46 

48 

10 

0 

355 

0 

0.0 

0 

0.0 

44 

44 

44 

6 

0 

504 

490 

4.7 

261 

2.5 

46 

44 

45 

37 

0 

357 

3 

0.0 

19 

0.1 

46 

44 

45 

10 

0 

405 

5 

0.0 

0 

0.0 

46 

45 

45 

1 

42 

404 

6 

0.0 

16 

0.1 

45 

44 

44 

3 

0 

484 

0 

0.0 

0 

0.0 

45 

45 

45 

0 

5 

503 

306 

2.1 

320 

2.1 

47 

45 

45 

240 

1 

483 

0 

0.0 

0 

0.0 

45 

45 

45 

0 

0 



stnofmt9xl5.A 

******************************************** 
***** Process Resource Monitor Phase 2 ***** 
***** Analysis Report ***** 

******************************************** 


LogTime from: Thu Aug 16 15:28:07 1990 
to: Thu Aug 16 15:30:38 1990 
Host Id: aries 

CPU type: 68030 

number: 2 


COMMAND 

PROCESS 80% CPU 
ID. 

UASAGE 50% CPU 

UASAGE MEMORY 

COMSUMPTION 


Milli 

% of Milli 

% of 





Sec . 

Total Sec. 

Total 

Phys 

Virt 

Shr 

SWAPPER 

0 

0 

0.00 

0 

0.00 

0 

0 

0.0 

init 

1 

0 

0.00 

0 

0.00 

15 

20 

0.0 

PAGED AEMON 

2 

0 

0.00 

0 

0.00 

8 

2056 

0.0 

lwpl 

3 

0 

0.00 

0 

0.00 

8 

8 

0.0 

lwp2 

4 

0 

0.00 

0 

0.00 

8 

8 

0.0 

getty 

72 

0 

0.00 

0 

0.00 

12 

18 

0.0 

update 

34 

0 

0.00 

0 

0.00 

3 

8 

0 . 0 

getty 

71 

0 

0.00 

0 

0.00 

12 

18 

0 . 0 

getty 

73 

0 

0.00 

0 

0.00 

12 

18 

0.0 

errdemon 

50 

0 

0.00 

0 

0.00 

10 

16 

0.0 

cron 

54 

0 

0.00 

0 

0.00 

31 

36 

0.0 

Xgcm 

69 

0 

0.00 

0 

0.00 

170 

196 

0.0 

Xgcm 

70 

133 

6.65 

116 

5.80 

412 

559 

0.0 

port map 

74 

0 

0.00 

0 

0.00 

17 

23 

0.0 

netd 

75 

0 

0.00 

0 

0.00 

25 

31 

0.0 

rwhod 

76 

0 

0.00 

0 

0.00 

24 

29 

0.0 

tailed 

77 

0 

0.00 

0 

0.00 

25 

32 

0.0 

rwalld 

78 

0 

0.00 

0 

0.00 

16 

22 

0.0 

rusersd 

79 

0 

0.00 

0 

0.00 

22 

29 

0.0 

timed 

80 

0 

0.00 

0 

0.00 

31 

39 

0.0 

xdm 

302 

0 

0.00 

0 

0.00 

105 

116 

0.0 

ypbind 

82 

0 

0.00 

0 

0.00 

18 

24 

0.0 

biod 

83 

17 

0.85 

0 

0.00 

11 

11 

0.0 

mountd 

84 

0 

0.00 

0 

0.00 

24 

31 

0.0 

xcterm 

326 

0 

0.00 

0 

0.00 

190 

226 

2.0 

xdm 

86 

0 

0.00 

0 

0.00 

81 

92 

0.0 

nf sd 

87 

0 

0.00 

0 

0.00 

13 

19 

0.0 

xdm 

88 

0 

0.00 

0 

0.00 

62 

97 

2.0 

xdm 

89 

0 

0.00 

0 

0.00 

82 

97 

2.0 

esh 

327 

0 

0.00 

0 

0.00 

43 

50 

0.0 

xdm 

94 

0 

0.00 

0 

0.00 

104 

115 

2.0 

xcterm 

310 

0 

0.00 

0 

0.00 

188 

224 

2.0 

mwm 

312 

0 

0.00 

0 

0.00 

204 

226 

2.0 

go 

346 

0 

0.00 

0 

0.00 

34 

43 

0.0 

esh 

316 

0 

0.00 

0 

0.00 

43 

50 

0.0 

prm 

347 

84 

4.20 

83 

4.15 

68 

76 

0.0 

stnofmt 

348 

34 

1.70 

33 

1.65 

143 

188 

2.0 

sleep 

349 

0 

0.00 

0 

0.00 

5 

13 

2.0 



PROCESS 

ID. 


stnofmt9xl5.A 



CONTEXT SWITCHING PROCESS TOTAL SIGNALS 

VOL. INVOL. PRIORITY I/O ACT. RECEIVED 



Total 

Avg. 

Total 

Avg. 

High 

Low 

Avg. 



0 

0 

0.0 

0 

0.0 

35 

35 

35 

0 

0 

1 

3 

0.0 

0 

0.0 

45 

45 

45 

274 

52 

2 

0 

0.0 

0 

0.0 

-25 

-25 

-25 

0 

0 

3 

73 

0.5 

0 

0.0 

35 

35 

35 

0 

0 

4 

0 

0.0 

0 

0.0 

44 

44 

44 

0 

0 

72 

0 

0.0 

0 

0.0 

45 

45 

45 

0 

1 

34 

0 

0.0 

0 

0.0 

46 

45 

45 

1890 

220 

71 

0 

0.0 

0 

0.0 

47 

47 

47 

4 

0 

73 

0 

0.0 

0 

0.0 

45 

45 

45 

1 

1 

50 

0 

0.0 

0 

0.0 

46 

46 

46 

4 

0 

54 

0 

0.0 

0 

0.0 

45 

45 

45 

19 

4 

69 

0 

0.0 

0 

0.0 

40 

40 

40 

30 

3 

70 

752 

5.0 

2 

0.0 

46 

40 

42 

75 

0 

74 

0 

0.0 

0 

0.0 

45 

45 

45 

5 

0 

75 

0 

0.0 

0 

0.0 

45 

45 

45 

14 

1 

76 

0 

0.0 

0 

0.0 

45 

45 

45 

293 

36 

77 

0 

0.0 

0 

0.0 

45 

45 

45 

4 

0 

78 

0 

0.0 

0 

0.0 

45 

45 

45 

3 

0 

79 

0 

0.0 

0 

0.0 

45 

45 

45 

5 

0 

80 

15 

0.1 

0 

0.0 

45 

45 

45 

10 

0 

302 

0 

0.0 

0 

0.0 

51 

51 

51 

12 

0 

82 

0 

0.0 

0 

0.0 

44 

44 

44 

5 

1 

83 

444 

3.0 

0 

0.0 

45 

45 

45 

15 

0 

64 

0 

0.0 

0 

0.0 

44 

44 

44 

6 

0 

326 

2 

0.0 

8 

0.1 

45 

44 

44 

3 

0 

86 

0 

0.0 

0 

0.0 

48 

48 

48 

12 

0 

87 

0 

0.0 

0 

0.0 

45 

45 

45 

16 

0 

88 

0 

0.0 

0 

0.0 

46 

46 

46 

1 

0 

89 

0 

0.0 

0 

0.0 

46 

46 

46 

0 

0 

327 

0 

0.0 

0 

0.0 

45 

45 

45 

0 

18 

94 

0 

0.0 

0 

0.0 

44 

44 

44 

2 

0 

310 

0 

0.0 

0 

0.0 

44 

44 

44 

14 

0 

312 

4 

0.0 

20 

0.1 

49 

45 

45 

8 

0 

346 

0 

0.0 

0 

0.0 

46 

45 

45 

0 

1 

316 

0 

0.0 

0 

0.0 

52 

52 

52 

9 

7 

347 

293 

2.0 

307 

2.1 

47 

45 

45 

258 

1 

348 

357 

3.0 

103 

0.9 

46 

44 

45 

32 

0 

349 

18 

0.6 

4 

0.1 

45 

45 

45 

3 

0 






stnofxnttmsl6.A 


***** Process Resource Monitor Phase 2 ***** 
***** Analysis Report 

******************************************** 



LogTime from: 
to: 

Host Id: 

CPU type : 

number : 


Thu Aug 16 16:06:39 1990 
Thu Aug 16 16:09:08 1990 
aries 
68030 
2 


COMMAND 

PROCESS 

80% CPU 

UASAGE 


ID. 





Milli 

% of 



Sec . 

Total 


SWAPPER 

0 

0 

0.00 

init 

1 

0 

0.00 

PAGED AEMON 

2 

0 

0.00 

lwpl 

3 

0 

0.00 

lwp2 

4 

0 

0.00 

getty 

72 

0 

0.00 

update 

34 

0 

0 . 00 

getty 

71 

0 

0 . 00 

getty 

73 

0 

0.00 

errdemon 

50 

0 

0 .00 

cron 

54 

0 

0.00 

Xgcm 

69 

0 

0.00 

Xgcm 

70 

134 

6.70 

port map 

74 

0 

0.00 

netd 

75 

0 

0.00 

rwhod 

76 

0 

0.00 

talkd 

77 

0 

0.00 

rwalld 

78 

0 

0.00 

rusersd 

79 

0 

0.00 

timed 

80 

0 

0.00 

xdm 

91 

0 

0.00 

ypbind 

82 

0 

0.00 

biod 

83 

0 

0.00 

mount d 

84 

0 

0.00 

csh 

122 

0 

0.00 

xdm 

86 

0 

0.00 

nf sd 

87 

0 

0.00 

xdm 

88 

0 

0.00 

xdm 

89 

0 

0.00 

xcterm 

121 

0 

0.00 

xdm 

94 

0 

0.00 

mwm 

107 

0 

0.00 

csh 

111 

0 

0.00 

go 

128 

0 

0.00 

stnofmt 

130 

50 

2.50 

xcterm 

105 

0 

0.00 

prm 

129 

100 

5.00 

sleep 

132 

0 

0.00 


50% CPU U AS AGE MEMORY COMSUMPTION 


Milli 

% of 




Sec . 

Total 

Phys 

Virt 

Shr 

0 

0.00 

0 

0 

0.0 

0 

0.00 

15 

20 

0.0 

0 

0.00 

8 

2056 

0.0 

0 

0.00 

8 

8 

0.0 

0 

0.00 

8 

8 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

3 

8 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

12 

18 

0.0 

0 

0.00 

10 

16 

0.0 

0 

0.00 

30 

36 

0.0 

0 

0.00 

170 

196 

0.0 

117 

5.85 

417 

552 

0.0 

0 

0.00 

17 

23 

0.0 

0 

0.00 

24 

31 

0.0 

0 

0.00 

24 

29 

0.0 

0 

0.00 

25 

32 

0.0 

0 

0.00 

16 

22 

0.0 

0 

0.00 

22 

29 

0.0 

0 

0.00 

31 

39 

0.0 

0 

0.00 

104 

115 

2.0 

0 

0.00 

18 

24 

0.0 

0 

0.00 

11 

11 

0.0 

0 

0.00 

24 

31 

0.0 

0 

0.00 

43 

50 

0.0 

0 

0.00 

81 

92 

0.0 

0 

0.00 

13 

19 

0.0 

0 

0.00 

82 

97 

2.0 

0 

0.00 

82 

97 

2.0 

0 

0.00 

215 

228 

2.0 

0 

0.00 

105 

116 

0.0 

0 

0.00 

215 

226 

2.0 

0 

0.00 

43 

50 

0.0 

0 

0.00 

34 

43 

0.0 

17 

0.85 

178 

188 

2.0 

0 

0.00 

212 

225 

2.0 

83 

4.15 

68 

76 

0.0 

0 

0.00 

7 

13 

2.0 





stnofmttmsl6.A 


PROCESS 

ID. 


CONTEXT SWITCHING PROCESS TOTAL SIGNALS 

VOL. INVOL. PRIORITY I/O ACT. RECEIVED 



Total 

Avg. 

Total 

0 

0 

0.0 

0 

1 

0 

0.0 

0 

2 

0 

0.0 

0 

3 

74 

0.5 

0 

4 

0 

0.0 

0 

72 

0 

0.0 

0 

34 

5 

0.0 

0 

71 

0 

0.0 

0 

73 

0 

0.0 

0 

50 

0 

0.0 

0 

54 

0 

0.0 

0 

69 

0 

0.0 

0 

70 

903 

6.1 

322 

74 

0 

0.0 

0 

75 

0 

0.0 

0 

76 

8 

0.1 

0 

77 

0 

0.0 

0 

78 

0 

0.0 

0 

79 

0 

0.0 

0 

80 

0 

0.0 

0 

91 

0 

0.0 

0 

82 

0 

0.0 

0 

83 

443 

3.0 

0 

84 

0 

0.0 

0 

122 

0 

0.0 

0 

86 

0 

0.0 

0 

87 

5 

0.0 

0 

88 

0 

0.0 

0 

89 

0 

0.0 

0 

121 

5 

0.0 

18 

94 

0 

0.0 

0 

107 

91 

0.6 

337 

111 

0 

0.0 

0 

128 

2 

0.0 

1 

130 

681 

5.8 

229 

105 

0 

0.0 

0 

129 

293 

2.0 

293 

132 

0 

0.0 

0 


Avg. 

High 

Low 

Avg. 


0.0 

35 

35 

35 

0 

0.0 

46 

46 

46 

133 

0.0 

-25 

-25 

-25 

0 

0.0 

35 

35 

35 

0 

0.0 

44 

44 

44 

0 

0.0 

45 

45 

45 

0 

0.0 

45 

45 

45 

107 

0.0 

46 

46 

46 

3 

0.0 

45 

45 

45 

1 

0.0 

46 

46 

46 

4 

0.0 

46 

46 

46 

5 

0.0 

44 

44 

44 

51 

2.2 

53 

40 

42 

8 

0.0 

45 

45 

45 

6 

0.0 

49 

49 

49 

7 

0.0 

45 

45 

45 

15 

0.0 

46 

46 

46 

4 

0.0 

45 

45 

45 

3 

0.0 

46 

46 

46 

5 

0.0 

44 

44 

44 

6 

0.0 

49 

49 

49 

4 

0.0 

44 

44 

44 

7 

0.0 

47 

45 

45 

5 

0.0 

46 

46 

46 

6 

0.0 

45 

45 

45 

0 

0.0 

47 

47 

47 

11 

0.0 

45 

45 

45 

3 

0.0 

46 

46 

46 

0 

0.0 

46 

46 

46 

0 

0.1 

45 

44 

44 

1 

0.0 

52 

52 

52 

3 

2.3 

59 

45 

49 

15 

0.0 

56 

56 

56 

4 

0.0 

46 

45 

45 

0 

1.9 

55 

45 

45 

145 

0.0 

50 

50 

50 

17 

2.0 

48 

45 

46 

254 

0.0 

45 

45 

45 

3 


0 

11 

0 

0 

0 

1 

8 

0 

1 


1 

1 

0 

0 

0 

0 

0 

1 

0 

0 

5 

0 

0 

0 

0 

0 

0 

0 

7 

1 

0 

0 

1 

0 



o o o o o 


stnofmttms22.A 


*************** - ***** 

***** 


***** process Resource Monitor Phase 2 
***** Analysis Report 

*************** 




LogTime 

Host 

CPU 


from: Thu Aug 16 16:12:08 1990 
to: Thu Aug 16 16:14:38 1990 
Id: aries 
type: 68030 
number: 2 


COMMAND 


SWAPPER 
init 
PAGEDAEMON 
lwpl 
lwp2 
getty 
update 
getty 
getty 
errdemon 
cron 
Xgcm 
Xgcm 
portmap 
netd 
rwhod 
talkd 
rwalld 
rusersd 
timed 
xdm 
ypbind 
biod 
mountd 
csh 
xdm 
nf sd 
xdm 
xdm 
xcterm 
xdm 
mwm 
csh 
go 

stnofmt 

xcterm 

prm 

sleep 


PROCESS 
ID . 

80% CPU 

U AS AGE 

50% CPU 


Mill! 

% of 

Milli 


Sec . 

Total 

Sec . 

0 

0 

0.00 

0 

1 

0 

0.00 

0 

2 

0 

0.00 

0 

3 

0 

0.00 

0 

4 

0 

0.00 

0 

72 

0 

0.00 

0 

34 

0 

0.00 

0 

71 

0 

0.00 

0 

73 

0 

0.00 

0 

50 

0 

0.00 

0 

54 

0 

0.00 

0 

69 

0 

0.00 

0 

70 

100 

5.00 

84 

74 

0 

0.00 

0 

75 

0 

0.00 

0 

76 

0 

0.00 

0 

77 

0 

0.00 

0 

78 

0 

0.00 

0 

79 

0 

0.00 

0 

80 

0 

0.00 

0 

91 

0 

0.00 

0 

82 

0 

0.00 

0 

83 

16 

0.80 

0 

84 

0 

0.00 

0 

122 

0 

0.00 

0 

86 

0 

0.00 

0 

87 

0 

0.00 

0 

88 

0 

0.00 

0 

89 

0 

0.00 

0 

121 

0 

0.00 

0 

94 

0 

0.00 

0 

107 

0 

0.00 

0 

111 

0 

0.00 

0 

128 

0 

0.00 

0 

138 

50 

2.50 

33 

105 

0 

0.00 

0 

137 

100 

5.00 

84 

140 

0 

0.00 

0 


% of 
Total 


0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

4.20 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

1.65 

0.00 

4.20 

0.00 


hys 

Virt 

Shr 

0 

0 

0.0 

15 

20 

0.0 

8 

2056 

0.0 

8 

8 

0.0 

8 

8 

0.0 

12 

18 

0.0 

3 

8 

0.0 

12 

18 

0.0 

12 

18 

0.0 

10 

16 

0.0 

30 

36 

0.0 

170 

196 

0.0 

689 

1067 

0.0 

17 

23 

0.0 

24 

31 

0.0 

24 

29 

0.0 

25 

32 

0.0 

16 

22 

0.0 

22 

29 

0.0 

31 

39 

0.0 

104 

115 

2.0 

18 

24 

0.0 

11 

11 

0.0 

24 

31 

0.0 

43 

50 

0.0 

81 

92 

0.0 

13 

19 

0.0 

82 

97 

2.0 

82 

97 

2.0 

215 

228 

2.0 

105 

116 

0.0 

215 

226 

2.0 

43 

50 

0.0 

34 

43 

0.0 

143 

188 

2.0 

212 

225 

2.0 

54 

76 

0.0 

5 

13 

2.0 



stnofrattms22.A 


PROCESS 

ID. 


CONTEXT SWITCHING 
VOL . INVOL . 


PROCESS TOTAL SIGNALS 

PRIORITY I/O ACT. RECEIVED 


Total Avg. Total Avg. 


High Low Avg. 



0 

0 

0.0 

1 

0 

0.0 

2 

0 

0.0 

3 

73 

0.5 

4 

0 

0.0 

72 

0 

0.0 

34 

20 

0.1 

71 

0 

0.0 

73 

0 

0.0 

50 

0 

0.0 

54 

0 

0.0 

69 

0 

0.0 

70 

882 

5.9 

74 

0 

0.0 

75 

0 

0.0 

76 

14 

0.1 

77 

0 

0.0 

78 

0 

0.0 

79 

0 

0.0 

ao 

4 

0.0 

91 

0 

0.0 

82 

0 

0.0 

83 

444 

3.0 

84 

0 

0.0 

122 

0 

0.0 

86 

0 

0.0 

87 

26 

0.2 

88 

0 

0.0 

89 

0 

0.0 

121 

1 

0.0 

94 

0 

0.0 

X 07 

38 

0.3 

111 

0 

0.0 

128 

0 

0.0 

138 

341 

2.8 

105 

0 

0.0 

137 

303 

2.0 

140 

15 

0.6 


0 

0.0 

35 

35 

0 

0.0 

45 

45 

0 

0.0 

-25 

-25 

0 

0.0 

35 

35 

0 

0.0 

44 

44 

0 

0.0 

45 

45 

0 

0.0 

45 

44 

0 

0.0 

46 

46 

0 

0.0 

45 

45 

0 

0.0 

46 

46 

0 

0.0 

46 

46 

0 

0.0 

44 

44 

94 

0.6 

48 

40 

0 

0.0 

45 

45 

0 

0.0 

44 

44 

0 

0.0 

45 

45 

0 

0.0 

46 

46 

0 

0.0 

45 

45 

0 

0.0 

46 

46 

0 

0.0 

45 

45 

0 

0.0 

49 

49 

0 

0.0 

44 

44 

0 

0.0 

45 

45 

0 

0.0 

46 

46 

0 

0.0 

45 

45 

0 

0.0 

47 

47 

0 

0.0 

45 

45 

0 

0.0 

46 

46 

0 

0.0 

46 

46 

8 

0.1 

45 

44 

0 

0.0 

52 

52 

296 

2.0 

49 

45 

0 

0.0 

56 

56 

0 

0.0 

46 

45 

136 

1.1 

49 

44 

0 

0.0 

50 

50 

340 

2.3 

47 

43 

6 

0.2 

45 

45 


35 o o 

45 135 12 

-25 0 0 

35 o o 

44 o 0 

45 0 1 

44 179 19 

<« 3 0 

45 1 i 

46 4 o 

« 5 0 

44 51 0 

41 13 0 

<5 6 0 

44 9 1 

45 31 3 

46 4 0 

45 3 0 

46 5 0 

45 6 0 

49 4 0 

44 7 1 

45 5 0 

46 6 0 

45 0 5 

47 11 0 

45 7 0 

46 0 o 

46 o o 

44 1 0 

52 3 0 

46 15 0 

56 4 7 

45 0 7 

45 30 0 

50 17 0 

45 226 1 

45 0 0 



